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

Sort keywords at the appropriate time

Browse source
This commit is contained in:
John Wiegley 2017-12-01 00:44:49 -08:00
parent af8b961716
commit 669e8527fb
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1741,11 +1741,10 @@ this file. Usage:
(orig-args args)
(args (use-package-normalize-plist name args)))
(dolist (spec use-package-defaults)
(setq args (use-package-sort-keywords
(if (eval (nth 2 spec))
(use-package-plist-maybe-put
args (nth 0 spec) (eval (nth 1 spec)))
args))))
(setq args (if (eval (nth 2 spec))
(use-package-plist-maybe-put
args (nth 0 spec) (eval (nth 1 spec)))
args)))
;; When byte-compiling, pre-load the package so all its symbols are in
;; scope.
@ -1769,10 +1768,12 @@ this file. Usage:
(let ((body
(macroexp-progn
(use-package-process-keywords name
(let ((args* (if (and use-package-always-demand
(not (memq :defer args)))
(append args '(:demand t))
args)))
(let ((args*
(use-package-sort-keywords
(if (and use-package-always-demand
(not (memq :defer args)))
(plist-put args :demand t)
args))))
(when (and use-package-always-ensure
(plist-member args* :load-path)
(not (plist-member orig-args :ensure)))