Function: tpu-exit

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

Signature

(tpu-exit)

Documentation

Exit the way TPU does, save current buffer and ask about others.

Key Bindings

Aliases

EXIT exit

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-exit nil
  "Exit the way TPU does, save current buffer and ask about others."
  (interactive)
  (if (not (eq (recursion-depth) 0))
      (exit-recursive-edit)
    (progn (save-buffer) (save-buffers-kill-emacs))))