mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Eshel Yaron 2025-10-03 19:09:05 +02:00
parent 320df8ad35
commit c412bd83ff
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1871,8 +1871,9 @@ property, or if the current buffer is trusted (see `trusted-content-p')."
(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.
(when-let* ((q (elisp-scope--unquote spec)))
(when (consp q) (dolist (s q) (elisp-scope-face (cdr s)))))
(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 doc)
(while-let ((kw (car-safe args))
(bkw (elisp-scope-sym-bare kw))