From 2790bfc00618046d44a9c4817f1128ad2986fc10 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 4 Dec 2017 15:43:10 -0800 Subject: [PATCH] Add a bind-key test --- test/lisp/use-package/use-package-tests.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 51a57edb7d2..76e0be5105b 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1469,6 +1469,15 @@ (ignore (bind-keys :package mu4e ("" . mu4e)))))) +(ert-deftest bind-key/:prefix-map () + (match-expansion + (bind-keys :prefix "" + :prefix-map my/map) + `(progn + (defvar my/map) + (define-prefix-command 'my/map) + (bind-key "" 'my/map nil nil)))) + ;; Local Variables: ;; indent-tabs-mode: nil ;; no-byte-compile: t -- 2.39.2