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

:no-require t should never require

Browse source
This commit is contained in:
John Wiegley 2017-11-30 21:45:17 -08:00
parent 0791e3fefe
commit 1a09f8fef2
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -933,7 +933,8 @@ If ALLOW-EMPTY is non-nil, it's OK for ARGS to be an empty list."
(defun use-package-handler/:no-require (name keyword arg rest state)
;; This keyword has no functional meaning.
(use-package-process-keywords name rest state))
(use-package-process-keywords name rest
(plist-put state :no-require t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
@ -1459,12 +1460,15 @@ representing symbols (that may need to be autloaded)."
(format "Loading package %s" name)
(if use-package-expand-minimally
(use-package-concat
(list (use-package-load-name name))
(unless (plist-get state ':no-require)
(list (use-package-load-name name)))
config-body)
`((if (not ,(use-package-load-name name t))
(ignore
(message (format "Cannot load %s" ',name)))
,@config-body)))))))
(if (plist-get state ':no-require)
config-body
`((if (not ,(use-package-load-name name t))
(ignore
(message (format "Cannot load %s" ',name)))
,@config-body))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;