Mercurial > emacs

diff lisp/emacs-lisp/shadow.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 94f1fe5b7430
children dd099beb5a5b
line wrap: on
line diff
--- a/lisp/emacs-lisp/shadow.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/emacs-lisp/shadow.el	Fri Oct 02 03:48:36 2009 +0000
@@ -241,7 +241,7 @@
 	  (setq shadows (cdr (cdr shadows))))
 	(if stringp
 	    (buffer-string)
-	  (if (interactive-p)
+	  (if (called-interactively-p 'interactive)
 	      (save-excursion
 		;; We are interactive.
 		;; Create the *Shadows* buffer and display shadowings there.