awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Simplify doom--resolve-hooks

Browse Source
This commit is contained in:
Henrik Lissner
2017-03-04 00:00:25 -05:00
parent e77545f1f8
commit e7720e4aae
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
core/core-lib.el
View File

@ -52,8 +52,7 @@
(dolist (hook (if (listp hooks) hooks (list hooks)) (nreverse ret-hooks)) (dolist (hook (if (listp hooks) hooks (list hooks)) (nreverse ret-hooks))
(push (cond ((eq (car-safe hook) 'quote) (push (cond ((eq (car-safe hook) 'quote)
(cadr hook)) (cadr hook))
((string-suffix-p "-hook" (symbol-name hook)) (quoted-p hook)
hook)
(t (t
(intern (format "%s-hook" (symbol-name hook))))) (intern (format "%s-hook" (symbol-name hook)))))
ret-hooks)))) ret-hooks))))