mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from npostavs/eval-after-name

Browse source 
use--package: eval-after-load name
GitHub-reference: https://github.com/jwiegley/use-package/issues/168
This commit is contained in:
John Wiegley 2015-03-15 20:07:16 -04:00
commit 1c5f9247aa
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/use-package/use-package.el
View file

@ -329,7 +329,7 @@ the user specified.")
(ignore
(display-warning 'use-package (format ,fmt ,err) :error)))))))
(defun use--package (name-symbol name-string args)
(defun use--package (name name-symbol name-string args)
"See docstring for `use-package'."
(let*
((commands (plist-get args :commands))
@ -424,7 +424,7 @@ the user specified.")
,(format "Configuring package %s"
name-string)
,@config-body)))
(list `(eval-after-load ,name-string
(list `(eval-after-load ',name
',body)))))
`((use-package-with-elapsed-timer
,(format "Loading package %s" name-string)
@ -503,7 +503,7 @@ this file. Usage:
;; At this point, we can expand the macro using the helper function.
;; `use--package'.
(let*
((body (use--package name-symbol name-string args*))
((body (use--package name name-symbol name-symbol args*))
(pred (plist-get args* :if))
(expansion (if pred
`(when ,pred ,@body)