* lisp/hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.

Fixes: debbugs:14179

* lisp/hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.
Fixes: debbugs:14179
137f57c8 · E Sabof · Juri Linkov · 3fbba716 · 137f57c8 · 137f57c8
Commit 137f57c8 authored Dec 20, 2013 by E Sabof Committed by Juri Linkov Dec 20, 2013
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/hi-lock.el lisp/hi-lock.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2013-12-20  E Sabof  <esabof@gmail.com>  (tiny change)
+
+	* hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.
+	(Bug#14179)
+
 2013-12-20  Stephen Berman  <stephen.berman@gmx.net>

 	* calendar/todo-mode.el: New implementation of item insertion

--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -719,7 +719,7 @@ Otherwise, read face name from minibuffer with completion and history."
    ;; Refuse to highlight a text that is already highlighted.
    (unless (assoc regexp hi-lock-interactive-patterns)
      (push pattern hi-lock-interactive-patterns)
-      (if font-lock-mode
+      (if (and font-lock-mode (font-lock-specified-p major-mode))
 	  (progn
 	    (font-lock-add-keywords nil (list pattern) t)
 	    (font-lock-fontify-buffer))