* progmodes/idlw-help.el (idlwave-help-fontify): Use called-interactively-p.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b21f922f36..d7b7bccc660 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-05-22  Glenn Morris  <rgm@gnu.org>
 
+        * progmodes/idlw-help.el (idlwave-help-fontify):
+        Use called-interactively-p.
+
         * term/w32console.el (w32-get-console-codepage)
         (w32-get-console-output-codepage): Declare.
 
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index b46b16aa87e..7060cae5080 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -1178,7 +1178,7 @@ Useful when source code is displayed as help.  See the option
   (if (featurep 'font-lock)
       (let ((major-mode 'idlwave-mode)
             (font-lock-verbose
-             (if (interactive-p) font-lock-verbose nil))
+             (if (called-interactively-p 'interactive) font-lock-verbose nil))
             (syntax-table (syntax-table)))
         (unwind-protect
             (progn