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) (defun use-package-handler/:no-require (name keyword arg rest state)
;; This keyword has no functional meaning. ;; 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) (format "Loading package %s" name)
(if use-package-expand-minimally (if use-package-expand-minimally
(use-package-concat (use-package-concat
(list (use-package-load-name name)) (unless (plist-get state ':no-require)
(list (use-package-load-name name)))
config-body) config-body)
`((if (not ,(use-package-load-name name t)) (if (plist-get state ':no-require)
(ignore config-body
(message (format "Cannot load %s" ',name))) `((if (not ,(use-package-load-name name t))
,@config-body))))))) (ignore
(message (format "Cannot load %s" ',name)))
,@config-body))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;