From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 18 Jan 2025 21:30:06 +0000 (+0100)
Subject: scope.el: Handle 'signal' and 'ert-deftest'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68c6e7979259e10cfb9e136930281891da7fdb96;p=emacs.git

scope.el: Handle 'signal' and 'ert-deftest'.
---

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)))