Mercurial > emacs

changeset 3408:8ffb00332c5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(undo): Pass proper arg to delete-auto-save-file-if-necessary.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Jun 1993 20:31:47 +0000
parents d00aaf536bfd
children 09bba81c038f
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Jun 01 20:29:48 1993 +0000
+++ b/lisp/simple.el	Tue Jun 01 20:31:47 1993 +0000
@@ -597,7 +597,8 @@
 Repeat this command to undo more changes.
 A numeric argument serves as a repeat count."
   (interactive "*p")
-  (let ((modified (buffer-modified-p)))
+  (let ((modified (buffer-modified-p))
+	(recent-save (recent-auto-save-p)))
     (or (eq (selected-window) (minibuffer-window))
 	(message "Undo!"))
     (or (eq last-command 'undo)
@@ -606,7 +607,7 @@
     (setq this-command 'undo)
     (undo-more (or arg 1))
     (and modified (not (buffer-modified-p))
-	 (delete-auto-save-file-if-necessary))))
+	 (delete-auto-save-file-if-necessary recent-save))))
 
 (defvar pending-undo-list nil
   "Within a run of consecutive undo commands, list remaining to be undone.")