Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Eglot: remove "face" suffix for semtok-specific faces

Browse source 
* lisp/progmodes/eglot.el (eglot--semtok-define-things)
(eglot--semtok-decode-token): Remove "face" suffix for semtok faces.
This commit is contained in:
João Távora 2025-12-18 22:41:12 +00:00
parent 83e8acf19a
commit ee481d30f9
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/eglot.el
View file

@ -4677,7 +4677,7 @@ If NOERROR, return predicate, else erroring function."
;;; Semantic tokens
(defmacro eglot--semtok-define-things ()
(cl-flet ((def-it (name def)
`(defface ,(intern (format "eglot-semantic-%s-face" name))
`(defface ,(intern (format "eglot-semantic-%s" name))
'((t (:inherit ,def)))
,(format "Face for painting a `%s' LSP semantic token" name)
:group 'eglot-semantic-fontification)))
@ -4715,10 +4715,10 @@ If NOERROR, return predicate, else erroring function."
when (cl-plusp (logand (cdr tok) (ash 1 j)))
collect m into names
and when (member m eglot-semantic-token-modifiers)
collect (intern (format "eglot-semantic-%s-face" m)) into faces
collect (intern (format "eglot-semantic-%s" m)) into faces
finally
(when (member tname eglot-semantic-token-types)
(push (intern (format "eglot-semantic-%s-face" tname)) faces))
(push (intern (format "eglot-semantic-%s" tname)) faces))
(cl-return (cons (cons tname names) faces))))
semtok-cache)
probe))))