From 1a09f8fef22d477c2a04fdf4bcda62f26d818a6f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 21:45:17 -0800 Subject: [PATCH] :no-require t should never require --- lisp/use-package/use-package.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 7a7b4660ca0..d55a4c0c437 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -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)))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; -- 2.39.2