awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Append setq-hook! hooks

Browse Source 
So that later setq-hook! calls will overwrite earlier ones.
This commit is contained in:
Henrik Lissner
2018-09-20 14:14:11 -04:00
parent c8b07f3caa
commit 3cd0db82b8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
core/core-lib.el
View File

@ -274,8 +274,8 @@ Body forms can access the hook's arguments through the let-bound variable
fill-column 80)" fill-column 80)"
(declare (indent 1)) (declare (indent 1))
(unless (= 0 (% (length rest) 2)) (unless (= 0 (% (length rest) 2))
(signal 'wrong-number-of-arguments (length rest))) (signal 'wrong-number-of-arguments (listp #'evenp (length rest))))
`(add-hook! ,hooks `(add-hook! :append ,hooks
,@(let (forms) ,@(let (forms)
(while rest (while rest
(let ((var (pop rest)) (let ((var (pop rest))