diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/hi-lock.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index ebd18621ef9..5139e01fa84 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -695,7 +695,8 @@ with completion and history." | |||
| 695 | (setq regexp (hi-lock--hashcons regexp)) | 695 | (setq regexp (hi-lock--hashcons regexp)) |
| 696 | (let ((pattern (list regexp (list 0 (list 'quote face) 'prepend)))) | 696 | (let ((pattern (list regexp (list 0 (list 'quote face) 'prepend)))) |
| 697 | ;; Refuse to highlight a text that is already highlighted. | 697 | ;; Refuse to highlight a text that is already highlighted. |
| 698 | (unless (assoc regexp hi-lock-interactive-patterns) | 698 | (if (assoc regexp hi-lock-interactive-patterns) |
| 699 | (add-to-list 'hi-lock--unused-faces (face-name face)) | ||
| 699 | (push pattern hi-lock-interactive-patterns) | 700 | (push pattern hi-lock-interactive-patterns) |
| 700 | (if (and font-lock-mode (font-lock-specified-p major-mode)) | 701 | (if (and font-lock-mode (font-lock-specified-p major-mode)) |
| 701 | (progn | 702 | (progn |