mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Add a bind-key test

Browse Source
This commit is contained in:
John Wiegley 2017-12-04 15:43:10 -08:00
parent 62d33b2143
commit 2790bfc006
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/lisp/use-package/use-package-tests.el
View File

@ -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