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

Add translation keymap support (#210)

Browse Source
This commit is contained in:
D.K 2019-05-29 04:14:09 +03:00 committed by Justin Burkett
parent 77586e62b6
commit ba03e7e5bc
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
which-key-tests.el
View File

@ -130,20 +130,23 @@
(define-key map "c" "c")
(define-key map "dd" "dd")
(define-key map "eee" "eee")
(define-key map "f" [123 45 6])
(should (equal
(sort (which-key--get-keymap-bindings map)
(lambda (a b) (string-lessp (car a) (car b))))
'(("b" . "ignore")
("c" . "c")
("d" . "Prefix Command")
("e" . "Prefix Command"))))
("e" . "Prefix Command")
("f" . "{ - C-f"))))
(should (equal
(sort (which-key--get-keymap-bindings map t)
(lambda (a b) (string-lessp (car a) (car b))))
'(("b" . "ignore")
("c" . "c")
("d d" . "dd")
("e e e" . "eee"))))))
("e e e" . "eee")
("f" . "{ - C-f"))))))
(provide 'which-key-tests)
;;; which-key-tests.el ends here

1
which-key.el
View File

@ -1741,6 +1741,7 @@ ones. PREFIX is for internal use and should not be used."
((eq 'lambda (car-safe def)) "lambda")
((eq 'menu-item (car-safe def)) "menu-item")
((stringp def) def)
((vectorp def) (key-description def))
(t "unknown")))
bindings :test (lambda (a b) (string= (car a) (car b)))))))))
keymap)