Commit b553cffa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(undo): Pass proper arg to delete-auto-save-file-if-necessary.

parent f8131ed2
......@@ -597,7 +597,8 @@ Get previous element of history which is a completion of minibuffer contents."
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 @@ A numeric argument serves as a repeat count."
(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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment