Cleanup auto-init function

This commit is contained in:
Tom Willemse 2015-05-09 19:12:55 +02:00
parent 1bda53e97d
commit 96e30cf2a0

View file

@ -45,10 +45,11 @@
The loaded file should be `LIBRARY-init', either `.el' or `.elc'
will do."
`(with-eval-after-load ',library
(load ,(concat (if (symbolp library)
(symbol-name library)
library) "-init"))))
(let ((name (if (symbolp library)
(symbol-name library)
library)))
`(with-eval-after-load ',library
(load ,(concat name "-init")))))
;; http://www.lunaryorn.com/2013/06/25/introducing-with-eval-after-load/
(defmacro stante-after (feature &rest forms)