mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

; elisp-scope.el: Simplify 'custom-declare-face' analyzer.

Browse source
This commit is contained in:
Eshel Yaron 2025-10-29 16:32:14 +01:00
parent 8c7b4391a5
commit b9aa420bc4
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/elisp-scope.el
View file

@ -1835,10 +1835,7 @@ ARGS bound to the analyzed arguments."
(elisp-scope-define-function-analyzer custom-declare-face (face spec doc &rest args)
(elisp-scope-1 face '(symbol . defface))
;; TODO: Use `elisp-scope-1' with an appropriate outspec.
(if-let* ((q (elisp-scope--unquote spec)))
(when (consp q) (dolist (s q) (elisp-scope-face (cdr s))))
(elisp-scope-1 spec))
(elisp-scope-1 spec '(repeat . (cons t . (plist (:inherit . (symbol . face))))))
(elisp-scope-1 doc)
(while-let ((kw (car-safe args))
(bkw (elisp-scope--sym-bare kw))