From 3cd0db82b8fee33e6e7c0945b1450ca52307f1e9 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 20 Sep 2018 14:14:11 -0400
Subject: [PATCH] Append setq-hook! hooks

So that later setq-hook! calls will overwrite earlier ones.
---
 core/core-lib.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/core-lib.el b/core/core-lib.el
index e9275d53c..b13015af0 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -274,8 +274,8 @@ 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 (length rest)))
-  `(add-hook! ,hooks
+    (signal 'wrong-number-of-arguments (listp #'evenp (length rest))))
+  `(add-hook! :append ,hooks
      ,@(let (forms)
          (while rest
            (let ((var (pop rest))