From: Tino Calancha <tino.calancha@gmail.com>
Date: Thu, 24 Aug 2017 15:24:59 +0000 (+0900)
Subject: Store the regexp just when there are matches
X-Git-Tag: emacs-26.0.90~365
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22ebde63c9df6a6815359c1e3406baddec1ed55b;p=emacs.git

Store the regexp just when there are matches

* lisp/hi-lock.el (hi-lock-set-pattern): When font-lock-mode is
disabled and there are no matches do not store REGEXP
in hi-lock-interactive-patterns.
---

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 34300212f02..36901c302d6 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -721,7 +721,9 @@ with completion and history."
                 (overlay-put overlay 'face face))
               (goto-char (match-end 0)))
             (when no-matches
-              (add-to-list 'hi-lock--unused-faces (face-name face)))))))))
+              (add-to-list 'hi-lock--unused-faces (face-name face))
+              (setq hi-lock-interactive-patterns
+                    (cdr hi-lock-interactive-patterns)))))))))
 
 (defun hi-lock-set-file-patterns (patterns)
   "Replace file patterns list with PATTERNS and refontify."