fix setq-hook error path
In setq-hook!: core-lib.el:280:41:Warning: ‘listp’ called with 2 args, but requires 1 Signed-off-by: Edwin Török <edwin@etorok.net>
This commit is contained in:
parent
22c85e2c5a
commit
cd314a1188
1 changed files with 1 additions and 1 deletions
|
@ -277,7 +277,7 @@ 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 (listp #'evenp (length rest))))
|
(signal 'wrong-number-of-arguments (list #'evenp (length rest))))
|
||||||
`(add-hook! :append ,hooks
|
`(add-hook! :append ,hooks
|
||||||
,@(let (forms)
|
,@(let (forms)
|
||||||
(while rest
|
(while rest
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue