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

[bpt/emacs.git] / lisp / emulation / tpu-extras.el

diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index e8b2fec..6d0823c 100644 (file)
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -436,7 +436,7 @@ A repeat count means scroll that many sections."
     (ad-enable-advice f 'around 'tpu-respect-bottom-scroll-margin)
     (ad-activate f))
   ;; report scroll margin settings if running interactively
-  (and (interactive-p)
+  (and (called-interactively-p 'interactive)
        (message "Scroll margins set.  Top = %s%%, Bottom = %s%%"
                tpu-top-scroll-margin tpu-bottom-scroll-margin)))