[Emacs-diffs] /srv/bzr/emacs/trunk r112662: * progmodes/idlw-help.el (idlwave-help-fontify): Use called-interactively-p.

[Glenn Morris]

------------------------------------------------------------
revno: 112662
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-21 20:16:05 -0700
message:
  * progmodes/idlw-help.el (idlwave-help-fontify): Use called-interactively-p.
modified:
  lisp/ChangeLog
  lisp/progmodes/idlw-help.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-22 03:15:03 +0000
+++ b/lisp/ChangeLog    2013-05-22 03:16:05 +0000
@@ -1,5 +1,8 @@
 2013-05-22  Glenn Morris  <address@hidden>
 
+       * progmodes/idlw-help.el (idlwave-help-fontify):
+       Use called-interactively-p.
+
        * term/w32console.el (w32-get-console-codepage)
        (w32-get-console-output-codepage): Declare.
 

=== modified file 'lisp/progmodes/idlw-help.el'
--- a/lisp/progmodes/idlw-help.el       2013-05-09 01:40:20 +0000
+++ b/lisp/progmodes/idlw-help.el       2013-05-22 03:16:05 +0000
@@ -1178,7 +1178,7 @@
   (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