From ee07e709eadc85479c06db9ca40e6f18bcb41463 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 4 Dec 2017 16:46:46 -0800 Subject: [PATCH] Fix the case where :ensure is given no arguments Fixes https://github.com/jwiegley/use-package/issues/543 --- lisp/use-package/use-package-ensure.el | 2 +- test/lisp/use-package/use-package-tests.el | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/use-package/use-package-ensure.el b/lisp/use-package/use-package-ensure.el index 083350edf9e..9cf94419d8a 100644 --- 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 76e0be5105b..938e990b856 100644 --- 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 ("" . 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 "" -- 2.39.2