diff lisp/hi-lock.el @ 105372:bd2966850aac

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

--- a/lisp/hi-lock.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/hi-lock.el	Fri Oct 02 03:48:36 2009 +0000
@@ -338,7 +338,7 @@
   :keymap hi-lock-map
   (when (and (equal (buffer-name) "*scratch*")
              load-in-progress
-             (not (interactive-p))
+             (not (called-interactively-p 'interactive))
              (not hi-lock-archaic-interface-message-used))
     (setq hi-lock-archaic-interface-message-used t)
     (if hi-lock-archaic-interface-deduce
@@ -636,7 +636,7 @@
                    (y-or-n-p "Add patterns from this buffer to hi-lock? "))
                   (t nil)))
         (hi-lock-set-file-patterns all-patterns)
-        (if (interactive-p)
+        (if (called-interactively-p 'interactive)
             (message "Hi-lock added %d patterns." (length all-patterns)))))))
 
 (defun hi-lock-font-lock-hook ()