[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115650: * lisp/hi-lock.el (hi-lock-set-pattern): Ch
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] trunk r115650: * lisp/hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'. |
Date: |
Fri, 20 Dec 2013 19:47:05 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115650
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14179
author: E Sabof <address@hidden>
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-20 21:47:01 +0200
message:
* lisp/hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/hi-lock.el hilock.el-20091113204419-o5vbwnq5f7feedwu-1889
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-12-20 17:21:12 +0000
+++ b/lisp/ChangeLog 2013-12-20 19:47:01 +0000
@@ -1,3 +1,8 @@
+2013-12-20 E Sabof <address@hidden> (tiny change)
+
+ * hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.
+ (Bug#14179)
+
2013-12-20 Stephen Berman <address@hidden>
* calendar/todo-mode.el: New implementation of item insertion
=== modified file 'lisp/hi-lock.el'
--- a/lisp/hi-lock.el 2013-12-20 00:07:08 +0000
+++ b/lisp/hi-lock.el 2013-12-20 19:47:01 +0000
@@ -719,7 +719,7 @@
;; 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115650: * lisp/hi-lock.el (hi-lock-set-pattern): Check for `font-lock-specified-p'.,
Juri Linkov <=