From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Jul 1994 21:32:04 +0000 (+0000)
Subject: (tpu-save-all-buffers-kill-emacs):
X-Git-Tag: emacs-19.34~7698
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=202bf0be2f44906e9c02596da1639a7329f48971;p=emacs.git

(tpu-save-all-buffers-kill-emacs):
Use delete-old-versions, and bind it locally.
---

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."
 (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."