Commit 137f57c8 authored by E Sabof's avatar E Sabof Committed by Juri Linkov
Browse files

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

Fixes: debbugs:14179
parent 3fbba716
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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment