Mercurial > emacs

diff lisp/emulation/tpu-extras.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 cb52c961cfa5
line wrap: on
line diff
--- a/lisp/emulation/tpu-extras.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/emulation/tpu-extras.el	Fri Oct 02 03:48:36 2009 +0000
@@ -436,7 +436,7 @@
     (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)))