From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Thu, 11 Nov 2021 16:44:27 +0000 (+0300)
Subject: * lisp/subr.el (add-hook): Fix adding into hook--depth-alist (bug#51620).
X-Git-Tag: emacs-29.0.90~3668^2~42
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e30cb92db6b09cffc69c02b8d8b13342d5739af2;p=emacs.git

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

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