From 97b8c0adc1d6ce42c43829e1270c0ccd13a82382 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Oct 2020 17:45:12 +0200
Subject: 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).
---
 lisp/hi-lock.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lisp/hi-lock.el')

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
-- 
cgit v1.2.3