Mercurial > emacs

changeset 582:a9c4bc19b2aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 15:23:26 +0000
parents e7dd969ff98b
children 3c0c1cd8428a
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Mon Mar 16 06:13:09 1992 +0000
+++ b/lisp/simple.el	Mon Mar 16 15:23:26 1992 +0000
@@ -1,5 +1,5 @@
 ;; Basic editing commands for Emacs
-;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -402,7 +402,8 @@
 A numeric argument serves as a repeat count."
   (interactive "*p")
   (let ((modified (buffer-modified-p)))
-    (message "Undo!")
+    (or (eq (selected-window) (minibuffer-window))
+	(message "Undo!"))
     (or (eq last-command 'undo)
 	(progn (undo-start)
 	       (undo-more 1)))