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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b21f922f36e99a341f8dab8522e8d623a185430..d7b7bccc6600581d7e065708e1b3cce432d837a6 100644 (file)
--- 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 b46b16aa87e9af727e1561f52079619b143c5954..7060cae5080f8b861e165b5e18eb2287eff723df 100644 (file)
--- 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