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

Add a :demand directive, to override deferred loading ()

Browse source 
GitHub-reference: https://github.com/jwiegley/use-package/issues/65
This commit is contained in:
John Wiegley 2013-12-04 19:44:09 -06:00
parent 9d395a4019
commit c3704ac36e
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -345,6 +345,7 @@
:config
:defer
:defines
:demand
:diminish
:disabled
:ensure
@ -383,7 +384,7 @@ Return the list of recognized keywords."
(eval (list '\` (plist-get plist prop))))
(defmacro use-package (name &rest args)
"Use a package with configuration options.
"Use a package with configuration options.
For full documentation. please see commentary.
@ -401,6 +402,7 @@ For full documentation. please see commentary.
:interpreter Form to be added to `interpreter-mode-alist'.
:defer Defer loading of package -- automatic
if :commands, :bind, :mode or :interpreter are used.
:demand Prevent deferred loading in all cases.
:config Runs if and when package loads.
:if Conditional loading.
:disabled Ignore everything.
@ -465,7 +467,7 @@ For full documentation. please see commentary.
`((diminish (quote ,diminish-var))))
((and (consp diminish-var) (stringp (cdr diminish-var)))
`((diminish (quote ,(car diminish-var)) ,(cdr diminish-var))))
(t ; list of symbols or (symbol . "string") pairs
(t ; list of symbols or (symbol . "string") pairs
(mapcar (lambda (var)
(if (listp var)
`(diminish (quote ,(car var)) ,(cdr var))
@ -481,7 +483,7 @@ For full documentation. please see commentary.
`(progn
(require 'use-package)
(use-package-init-on-idle (lambda () ,idle-body))
,init-body)))
,init-body)))
(let ((init-for-commands
@ -534,12 +536,13 @@ For full documentation. please see commentary.
(eval-when-compile
(when (bound-and-true-p byte-compile-current-file)
,@defines-eval
,(if (stringp name)
`(load ,name t)
`(require ',name nil t))))
,@defines-eval
,(if (stringp name)
`(load ,name t)
`(require ',name nil t))))
,(if (or commands (plist-get args :defer))
,(if (and (or commands (plist-get args :defer))
(not (plist-get args :demand)))
(let (form)
(mapc #'(lambda (command)
(push `(autoload (function ,command)