Mercurial > emacs
changeset 8155:ad36865ac28e
(tpu-save-all-buffers-kill-emacs):
Use delete-old-versions, and bind it locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Jul 1994 21:32:04 +0000 |
| parents | 64363eaca455 |
| children | fb7e3b74a18e |
| files | lisp/emulation/tpu-edt.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el Wed Jul 06 20:26:53 1994 +0000 +++ b/lisp/emulation/tpu-edt.el Wed Jul 06 21:32:04 1994 +0000 @@ -789,8 +789,8 @@ (defun tpu-save-all-buffers-kill-emacs nil "Save all buffers and exit emacs." (interactive) - (setq trim-versions-without-asking t) - (save-buffers-kill-emacs t)) + (let ((delete-old-versions t)) + (save-buffers-kill-emacs t))) (defun tpu-write-current-buffers nil "Save all modified buffers without exiting."