From 202bf0be2f44906e9c02596da1639a7329f48971 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Jul 1994 21:32:04 +0000 Subject: [PATCH] (tpu-save-all-buffers-kill-emacs): Use delete-old-versions, and bind it locally. --- lisp/emulation/tpu-edt.el | 4 ++-- 1 file 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." (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." -- 2.39.5