awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-21 13:53:38 -05:00
Code Issues Packages Projects Releases 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