emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add-hook! fix hooks that take arguments

Browse source
This commit is contained in:
Henrik Lissner 2016-05-01 00:58:01 -04:00
parent d80c388f27
commit 5c1557d911
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-defuns.el
View file

@ -76,10 +76,10 @@ Examples:
(forms '())) (forms '()))
(mapc (mapc
(lambda (f) (let ((func (cond ((symbolp f) `(quote ,f)) (lambda (f) (let ((func (cond ((symbolp f) `(quote ,f))
(t `(lambda () ,@func-or-forms))))) (t `(lambda (&rest _) ,@func-or-forms)))))
(mapc (mapc
(lambda (h) (push `(add-hook ',(if quoted h (intern (format "%s-hook" h))) ,func) forms)) (lambda (h) (push `(add-hook ',(if quoted h (intern (format "%s-hook" h))) ,func) forms))
(if (listp hook) hook (list hook))))) funcs) (if (listp hook) hook (list hook))))) funcs)
`(progn ,@forms))) `(progn ,@forms)))
(cl-defmacro associate! (mode &key minor (cl-defmacro associate! (mode &key minor