procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Filipp Gunbin 2021-11-11 19:44:27 +03:00
parent 2c082ce800
commit e30cb92db6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/subr.el
View file

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