(scope-1): Recognize hook names in a few more functions

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 34a29a1b0f797d4d63a462214d7ff672b60772bd..206d3e7feee71ec62cfaf77dc3a903094f7254a8 100644 (file)
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -1097,13 +1097,21 @@ a (possibly empty) list of safe macros.")
                special-variable-p local-variable-p
                local-variable-if-set-p
                default-value set-default make-local-variable
-               buffer-local-value add-to-list add-hook)
+               buffer-local-value add-to-list
+               add-hook run-hook-with-args run-hook-wrapped)
              (when-let* ((var-form (car forms))
                          ((memq (scope-sym-bare (car-safe var-form)) '(quote \`)))
                          (var (cadr var-form))
                          (beg (scope-sym-pos var))
                          (bare (scope-sym-bare var)))
                (funcall scope-callback 'variable beg (length (symbol-name bare)) nil)))
+            ((run-hooks)
+             (dolist (var-form forms)
+               (when-let* (((memq (scope-sym-bare (car-safe var-form)) '(quote \`)))
+                           (var (cadr var-form))
+                           (beg (scope-sym-pos var))
+                           (bare (scope-sym-bare var)))
+                 (funcall scope-callback 'variable beg (length (symbol-name bare)) nil))))
             ((featurep provide require)
              (when-let* ((feat-form (car forms))
                          ((memq (scope-sym-bare (car-safe feat-form)) '(quote \`)))