From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Oct 2020 15:45:12 +0000 (+0200)
Subject: Make hi-lock-face-buffer more resilient
X-Git-Tag: emacs-28.0.90~5620
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97b8c0adc1d6ce42c43829e1270c0ccd13a82382;p=emacs.git

Make hi-lock-face-buffer more resilient

* lisp/hi-lock.el (hi-lock-face-buffer): If given a face name a
string, convert it to a symbol first, as later usage of this
expects a symbol and not a string (bug#43339).
---

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index a81cefacb03..536a1af8462 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -493,6 +493,8 @@ the major mode specifies support for Font Lock."
                     'regexp-history-last)))
     (hi-lock-read-face-name)
     current-prefix-arg))
+  (when (stringp face)
+    (setq face (intern face)))
   (or (facep face) (setq face 'hi-yellow))
   (unless hi-lock-mode (hi-lock-mode 1))
   (hi-lock-set-pattern