From 3850281f88d16f5356f4403dba95688f7b7cab0f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 10 Dec 2017 09:53:13 -0800 Subject: [PATCH] Add a clarifying test for GitHub-reference: https://github.com/jwiegley/use-package/issues/482 --- test/lisp/use-package/use-package-tests.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 5aab6bb1170..067661abf89 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1638,6 +1638,22 @@ (bind-key "f" #'w3m-lnum-print-this-url w3m-y-prefix-map nil) (bind-key "t" #'w3m-print-this-url w3m-y-prefix-map nil))))) +(ert-deftest use-package-test/482 () + (match-expansion + (use-package simple + :bind-keymap ("C-t " . my/transpose-map) + :bind (:map my/transpose-map + ("w" . transpose-words))) + `(progn + (unless (fboundp 'transpose-words) + (autoload #'transpose-words "simple" nil t)) + (bind-key "C-t " + #'(lambda nil + (interactive) + (use-package-autoload-keymap 'my/transpose-map 'simple nil))) + (bind-keys :package simple :map my/transpose-map + ("w" . transpose-words))))) + (ert-deftest use-package-test/538 () (match-expansion (use-package mu4e -- 2.39.2