# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738966707 0
# Node ID 8ffb00332c5fff83b31bf23994a43b65d5b19b4a
# Parent  d00aaf536bfd2b8b7cff413bcf5cfc334c9da8e9
(undo): Pass proper arg to delete-auto-save-file-if-necessary.

diff -r d00aaf536bfd -r 8ffb00332c5f lisp/simple.el
--- 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.")