Fix the case where :ensure is given no arguments

Fixes https://github.com/jwiegley/use-package/issues/543

diff --git a/lisp/use-package/use-package-ensure.el b/lisp/use-package/use-package-ensure.el
index 083350edf9e272fd49cdfc339e7b1f993a91c9a5..9cf94419d8aa3b5bb48e80f85258dc7ac32af070 100644 (file)
--- a/lisp/use-package/use-package-ensure.el
+++ b/lisp/use-package/use-package-ensure.el
@@ -134,7 +134,7 @@ manually updated package."
 
 (defun use-package-normalize/:ensure (name keyword args)
   (if (null args)
-      t
+      (list t)
     (use-package-only-one (symbol-name keyword) args
       #'(lambda (label arg)
           (pcase arg

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index 76e0be5105b970d7b2f894983ac48b026edc93da..938e990b856da4a580e68c674fedbc203d58307d 100644 (file)
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -1469,6 +1469,14 @@
       (ignore
        (bind-keys :package mu4e ("<f9>" . mu4e))))))
 
+(ert-deftest use-package-test/543 ()
+  (match-expansion
+   (use-package hydra
+     :ensure)
+   `(progn
+      (use-package-ensure-elpa 'hydra '(t) 'nil)
+      (require 'hydra nil nil))))
+
 (ert-deftest bind-key/:prefix-map ()
   (match-expansion
    (bind-keys :prefix "<f1>"