# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773530324 0
# Node ID ad36865ac28edb2805e6c084cd65ac0b2224b78c
# Parent  64363eaca45574802faa394eb444c18c6106d0b9
(tpu-save-all-buffers-kill-emacs):
Use delete-old-versions, and bind it locally.

diff -r 64363eaca455 -r ad36865ac28e lisp/emulation/tpu-edt.el
--- 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."