From: John Wiegley <johnw@newartisans.com>
Date: Mon, 4 Dec 2017 23:43:10 +0000 (-0800)
Subject: Add a bind-key test
X-Git-Tag: emacs-29.0.90~1306^2~15^2~149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2790bfc006;p=emacs.git

Add a bind-key test
---

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 ("<f9>" . mu4e))))))
 
+(ert-deftest bind-key/:prefix-map ()
+  (match-expansion
+   (bind-keys :prefix "<f1>"
+              :prefix-map my/map)
+   `(progn
+      (defvar my/map)
+      (define-prefix-command 'my/map)
+      (bind-key "<f1>" 'my/map nil nil))))
+
 ;; Local Variables:
 ;; indent-tabs-mode: nil
 ;; no-byte-compile: t