From e30cb92db6b09cffc69c02b8d8b13342d5739af2 Mon Sep 17 00:00:00 2001 From: Filipp Gunbin Date: Thu, 11 Nov 2021 19:44:27 +0300 Subject: [PATCH] * lisp/subr.el (add-hook): Fix adding into hook--depth-alist (bug#51620). --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2