Function: tpu-quit

tpu-quit is an interactive and byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-quit)

Documentation

Quit the way TPU does, ask to make sure changes should be abandoned.

Key Bindings

Aliases

quit QUIT

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-quit nil
  "Quit the way TPU does, ask to make sure changes should be abandoned."
  (interactive)
  (let ((list (buffer-list))
	(working t))
    (while (and list working)
      (let ((buffer (car list)))
	(if (and (buffer-file-name buffer) (buffer-modified-p buffer))
            (if (tpu-y-or-n-p
		 "Modifications will not be saved, continue quitting? ")
		(kill-emacs t) (setq working nil)))
	(setq list (cdr list))))
    (if working (kill-emacs t))))