* lisp/subr.el (add-hook): Fix adding into hook--depth-alist (bug#51620).

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 5a5842d4287..3902251586e 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2042,7 +2042,7 @@ performance impact when running `add-hook' and `remove-hook'."
       (when (or (get hook 'hook--depth-alist) (not (zerop depth)))
         ;; Note: The main purpose of the above `when' test is to avoid running
         ;; this `setf' before `gv' is loaded during bootstrap.
-        (push (cons function depth) (get hook 'hook--depth-alist)))
+        (setf (alist-get function (get hook 'hook--depth-alist) 0) depth))
       (setq hook-value
             (if (< 0 depth)
                 (append hook-value (list function))