Use `called-interactively-p' instead of `interactive-p'.

[bpt/emacs.git] / lisp / emacs-lisp / shadow.el

diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 62feb15..d867188 100644 (file)
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -241,7 +241,7 @@ function, `find-emacs-lisp-shadows'."
          (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.