From 8697f427bb03ecc30c3f7cde2f6abb95ef939594 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 20 Jan 2025 22:11:52 +0100 Subject: [PATCH] (scope-1): Recognize hook names in a few more functions --- lisp/emacs-lisp/scope.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el index 34a29a1b0f7..206d3e7feee 100644 --- 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 \`))) -- 2.39.5