diff options
| author | John Wiegley <johnw@newartisans.com> | 2017-12-15 22:48:42 -0800 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2017-12-15 22:48:42 -0800 |
| commit | 2d226310f1fb053f9bba5abee101b31b38a919fc (patch) | |
| tree | 473aa895128e0095d5426dd8cd43ef45210faddd /test/lisp/use-package/use-package-tests.el | |
| parent | 51eceb4238ac7b4ed48a454cc7cde67de599fe00 (diff) | |
| download | emacs-2d226310f1fb053f9bba5abee101b31b38a919fc.tar.gz emacs-2d226310f1fb053f9bba5abee101b31b38a919fc.tar.bz2 emacs-2d226310f1fb053f9bba5abee101b31b38a919fc.zip | |
All the second argument in use-package-defaults lists to be a function
Address the question raised in https://github.com/jwiegley/use-package/issues/591
Diffstat (limited to 'test/lisp/use-package/use-package-tests.el')
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 5039e21064c..fc86fa63f81 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1862,6 +1862,18 @@ (string-match ":defer wants exactly one argument" (car warnings))) 44)))))) +(ert-deftest use-package-test/591 () + (let ((use-package-defaults + (cons '(:if (lambda (name _) `(locate-library ,name)) t) + use-package-defaults))) + (match-expansion + (use-package nonexistent + :hook lisp-mode) + `(when (locate-library nonexistent) + (unless (fboundp 'nonexistent) + (autoload #'nonexistent "nonexistent" nil t)) + (add-hook 'lisp-mode-hook #'nonexistent))))) + (ert-deftest bind-key/:prefix-map () (match-expansion (bind-keys :prefix "<f1>" |