From a614996faa9760c4c5f19fe9cc4c70e3b6cc625d Mon Sep 17 00:00:00 2001 From: Venky Iyer Date: Tue, 5 Jul 2022 16:09:28 -0700 Subject: [PATCH] Avoid invalid face reference errors Fixes #2255 --- lsp-diagnostics.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lsp-diagnostics.el b/lsp-diagnostics.el index f82ef56d785..53ec0d3b164 100644 --- a/lsp-diagnostics.el +++ b/lsp-diagnostics.el @@ -105,7 +105,7 @@ g. `error', `warning') and list of LSP TAGS." flycheck-level (mapconcat #'symbol-name tags "-")))) (or (intern-soft name) - (let* ((face (--doto (intern (format "lsp-%s-face" name)) + (let* ((face (--doto (intern (format "%s-face" name)) (copy-face (-> flycheck-level (get 'flycheck-overlay-category) (get 'face)) @@ -114,7 +114,7 @@ g. `error', `warning') and list of LSP TAGS." (apply #'set-face-attribute it nil (cl-rest (assoc tag lsp-diagnostics-attributes)))) tags))) - (category (--doto (intern (format "lsp-%s-category" name)) + (category (--doto (intern (format "%s-category" name)) (setf (get it 'face) face (get it 'priority) 100))) (new-level (intern name))