aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-03-16 15:23:26 +0000
committerJim Blandy1992-03-16 15:23:26 +0000
commit71e40adf62e72eb22cc70c68af866946d278dddf (patch)
tree616e00035c6ac5d6cb183956985998ca0cec7695
parentc810ea9018c06c2ad81c4273df097426abbc6e30 (diff)
downloademacs-71e40adf62e72eb22cc70c68af866946d278dddf.tar.gz
emacs-71e40adf62e72eb22cc70c68af866946d278dddf.zip
*** empty log message ***
-rw-r--r--lisp/simple.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index f008094a659..8519219324d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,5 +1,5 @@
1;; Basic editing commands for Emacs 1;; Basic editing commands for Emacs
2;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. 2;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
3 3
4;; This file is part of GNU Emacs. 4;; This file is part of GNU Emacs.
5 5
@@ -402,7 +402,8 @@ Repeat this command to undo more changes.
402A numeric argument serves as a repeat count." 402A numeric argument serves as a repeat count."
403 (interactive "*p") 403 (interactive "*p")
404 (let ((modified (buffer-modified-p))) 404 (let ((modified (buffer-modified-p)))
405 (message "Undo!") 405 (or (eq (selected-window) (minibuffer-window))
406 (message "Undo!"))
406 (or (eq last-command 'undo) 407 (or (eq last-command 'undo)
407 (progn (undo-start) 408 (progn (undo-start)
408 (undo-more 1))) 409 (undo-more 1)))