diff options
| author | Richard M. Stallman | 1994-07-06 21:32:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-06 21:32:04 +0000 |
| commit | 202bf0be2f44906e9c02596da1639a7329f48971 (patch) | |
| tree | b50d0ae280d2dcf0cd039eb848742065788ac083 | |
| parent | f26bb3034e825425838524b046eec513a0d20e17 (diff) | |
| download | emacs-202bf0be2f44906e9c02596da1639a7329f48971.tar.gz emacs-202bf0be2f44906e9c02596da1639a7329f48971.zip | |
(tpu-save-all-buffers-kill-emacs):
Use delete-old-versions, and bind it locally.
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 0ab741d9ad7..d816ceac008 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el | |||
| @@ -789,8 +789,8 @@ kills modified buffers without asking." | |||
| 789 | (defun tpu-save-all-buffers-kill-emacs nil | 789 | (defun tpu-save-all-buffers-kill-emacs nil |
| 790 | "Save all buffers and exit emacs." | 790 | "Save all buffers and exit emacs." |
| 791 | (interactive) | 791 | (interactive) |
| 792 | (setq trim-versions-without-asking t) | 792 | (let ((delete-old-versions t)) |
| 793 | (save-buffers-kill-emacs t)) | 793 | (save-buffers-kill-emacs t))) |
| 794 | 794 | ||
| 795 | (defun tpu-write-current-buffers nil | 795 | (defun tpu-write-current-buffers nil |
| 796 | "Save all modified buffers without exiting." | 796 | "Save all modified buffers without exiting." |