From 177658f06846be91dbc487fc8f8fde7439610b58 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 6 Oct 2025 10:18:13 +0200 Subject: [PATCH] ; elisp-scope.el: Drop special-form special handling * 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. --- lisp/emacs-lisp/elisp-scope.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/elisp-scope.el b/lisp/emacs-lisp/elisp-scope.el index 10c223b3a5e..8251e36fd88 100644 --- a/lisp/emacs-lisp/elisp-scope.el +++ b/lisp/emacs-lisp/elisp-scope.el @@ -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)