From cd314a118833c2b76b08fb24560b7f8250ae5c7f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= <edwin@etorok.net>
Date: Thu, 4 Oct 2018 00:36:42 +0100
Subject: [PATCH] fix setq-hook error path
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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>
---
 core/core-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/core-lib.el b/core/core-lib.el
index 22877494a..42b671be5 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -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