From 68c6e7979259e10cfb9e136930281891da7fdb96 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 18 Jan 2025 22:30:06 +0100 Subject: [PATCH] scope.el: Handle 'signal' and 'ert-deftest'. --- lisp/emacs-lisp/scope.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el index 87920831384..e1967c2afac 100644 --- a/lisp/emacs-lisp/scope.el +++ b/lisp/emacs-lisp/scope.el @@ -817,6 +817,13 @@ a (possibly empty) list of safe macros.") (dolist (prnt (ensure-list (cadr prnt-form))) (when-let* ((beg (scope-sym-pos prnt)) (bare (scope-sym-bare prnt))) (funcall scope-callback 'condition beg (length (symbol-name bare)) nil))))) + ((signal) + (when-let* ((name-form (car forms)) + ((memq (scope-sym-bare (car-safe name-form)) '(quote \`))) + (name (cadr name-form)) + (beg (scope-sym-pos name)) + (bare (scope-sym-bare name))) + (funcall scope-callback 'condition beg (length (symbol-name bare)) nil))) ((provide-theme custom-declare-theme) (when-let* ((name-form (car forms)) ((memq (scope-sym-bare (car-safe name-form)) '(quote \`))) @@ -889,8 +896,8 @@ a (possibly empty) list of safe macros.") (scope-n local forms)) ((memq bare '(with-slots)) (scope-with-slots local (car forms) (cadr forms) (cddr forms))) - ;; ((memq bare '(defun)) - ;; (scope-defun local (car forms) (cadr forms) (cddr forms))) + ((memq bare '(ert-deftest)) + (scope-defun local (car forms) (cadr forms) (cddr forms))) ((memq bare '(declare-function)) (scope-declare-function local (car forms) (cadr forms) (caddr forms) (cadddr forms))) -- 2.39.5