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

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 87920831384776a6bdd4250128490808171dbd00..e1967c2afac272fa084fc48821a5383eb6707f6f 100644 (file)
--- 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)))