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

; elisp-scope.el: Drop special-form special handling

Browse source 
* lisp/emacs-lisp/elisp-scope.el (elisp-scope-1): All
special-forms should have an associated analyzer, so drop
fallback handling for unknown special-forms.
This commit is contained in:
Eshel Yaron 2025-10-06 10:18:13 +02:00
parent 81c5399012
commit 177658f068
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2594,6 +2594,10 @@ property, or if the current buffer is trusted (see `trusted-content-p')."
(elisp-scope-define-special-form-analyzer quote (arg)
(elisp-scope-quote arg elisp-scope-output-spec))
(elisp-scope-define-special-form-analyzer interactive (&rest _)
;; Out-of-place `interactive' call, do nothing.
)
(elisp-scope-define-special-form-analyzer if (&optional test then &rest else)
(elisp-scope-1 test)
(elisp-scope-1 then elisp-scope-output-spec)
@ -2790,7 +2794,6 @@ are analyzed."
((setq this (or (alist-get bare elisp-scope-local-definitions)
(function-get bare 'elisp-scope-analyzer)))
(let ((elisp-scope-output-spec outspec)) (apply this form)))
((special-form-p bare) (elisp-scope-report-s f 'special-form) (elisp-scope-n forms))
((macrop bare) (elisp-scope-report-s f 'macro)
(cond
((elisp-scope-safe-macro-p bare)