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)"
|
||||
(declare (indent 1))
|
||||
(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
|
||||
,@(let (forms)
|
||||
(while rest
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue