From 5c1557d9118543d1159a2b878cc4e171b400df8f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 1 May 2016 00:58:01 -0400 Subject: [PATCH] add-hook! fix hooks that take arguments --- core/core-defuns.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/core/core-defuns.el b/core/core-defuns.el index e52360e59..be659a2fd 100644 --- a/core/core-defuns.el +++ b/core/core-defuns.el @@ -76,10 +76,10 @@ Examples: (forms '())) (mapc (lambda (f) (let ((func (cond ((symbolp f) `(quote ,f)) - (t `(lambda () ,@func-or-forms))))) - (mapc - (lambda (h) (push `(add-hook ',(if quoted h (intern (format "%s-hook" h))) ,func) forms)) - (if (listp hook) hook (list hook))))) funcs) + (t `(lambda (&rest _) ,@func-or-forms))))) + (mapc + (lambda (h) (push `(add-hook ',(if quoted h (intern (format "%s-hook" h))) ,func) forms)) + (if (listp hook) hook (list hook))))) funcs) `(progn ,@forms))) (cl-defmacro associate! (mode &key minor