Mercurial > emacs

diff lisp/emacs-lisp/lisp-mnt.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 a9dc0e7c3f2b
children 4b7353091b4a
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Fri Oct 02 03:48:36 2009 +0000
@@ -583,7 +583,7 @@
       (let ((must-kill (and file (not (get-file-buffer file)))))
         (when file (find-file file))
         (prog1
-            (if (interactive-p)
+            (if (called-interactively-p 'interactive)
                 (message "%s" (lm-summary))
               (lm-summary))
           (when must-kill (kill-buffer (current-buffer))))))))