Mercurial > emacs
diff lisp/hi-lock.el @ 105372:bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 02 Oct 2009 03:48:36 +0000 |
parents | b78ceb253d15 |
children | 8f110099da5c |
line wrap: on
line diff
--- 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 ()