[elpa] externals/which-key ba03e7e 05/51: Add translation keymap support (#210)

[Stefan Monnier]

branch: externals/which-key
commit ba03e7e5bcbe3f7d95be2cfddd71454151bb98c8
Author: D.K <beerandhot@gmail.com>
Commit: Justin Burkett <justin@burkett.cc>

    Add translation keymap support (#210)
---
 which-key-tests.el | 7 +++++--
 which-key.el       | 1 +
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/which-key-tests.el b/which-key-tests.el
index 3e75d6f..cff7fab 100644
--- a/which-key-tests.el
+++ b/which-key-tests.el
@@ -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
diff --git a/which-key.el b/which-key.el
index f4b15c4..99318d5 100644
--- a/which-key.el
+++ b/which-key.el
@@ -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)