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.

1 files changed, 3 insertions, 1 deletions

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."