Simplify doom--resolve-hooks

This commit is contained in:
Henrik Lissner 2017-03-04 00:00:25 -05:00
parent e77545f1f8
commit e7720e4aae

View file

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