Mercurial > emacs

diff lisp/menu-bar.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents f2e56d1eff32
children 5dc7f749a684
line wrap: on
line diff
--- a/lisp/menu-bar.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/menu-bar.el	Fri Oct 02 03:48:36 2009 +0000
@@ -1920,7 +1920,7 @@
   ;; Make the message appear when Emacs is idle.  We can not call message
   ;; directly.  The minor-mode message "Menu-bar mode disabled" comes
   ;; after this function returns, overwriting any message we do here.
-  (when (and (interactive-p) (not menu-bar-mode))
+  (when (and (called-interactively-p 'interactive) (not menu-bar-mode))
     (run-with-idle-timer 0 nil 'message
 			 "Menu-bar mode disabled.  Use M-x menu-bar-mode to make the menu bar appear."))
   menu-bar-mode)