masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

use--package: eval-after-load name

Browse source 
instead of name-string. This prevents triggering by config file names
that have the same name as the package.

Reprise of c6d79d2cb4
This commit is contained in:
Noam Postavsky 2015-03-15 15:14:04 -04:00
parent 81f5e48d32
commit 1f20acfd57
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

@ -336,7 +336,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))
@ -431,7 +431,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)
@ -522,7 +522,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)