mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/hi-lock.el (hi-lock-unface-buffer): Don't assume `face' is a symbol.

Browse source 
Fixes: debbugs:13297
This commit is contained in:
Stefan Monnier 2013-01-28 15:00:35 -05:00
parent cf01a35981
commit b2dc4f52e7
2 changed files with 21 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/hi-lock.el
View file

@ -562,7 +562,8 @@ then remove all hi-lock highlighting."
(when keyword
(let ((face (hi-lock-keyword->face keyword)))
;; Make `face' the next one to use by default.
(add-to-list 'hi-lock--unused-faces (face-name face)))
(when (symbolp face) ;Don't add it if it's a list (bug#13297).
(add-to-list 'hi-lock--unused-faces (face-name face))))
(font-lock-remove-keywords nil (list keyword))
(setq hi-lock-interactive-patterns
(delq keyword hi-lock-interactive-patterns))