branch: externals/which-key
commit 7e854d02037c8ec84ac26bb77b98f670d8d3eb2e
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Fix recent commit
---
which-key.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/which-key.el b/which-key.el
index 2f89f40..d66cec5 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1824,9 +1824,6 @@ ones. PREFIX is for internal use and should not be used."
(setq bindings
(append bindings
(which-key--get-keymap-bindings def t key))))
- ((and def (consp def))
- (cl-pushnew (cons key-desc (car def))
- bindings :test (lambda (a b) (string= (car a) (car
b)))))
(t
(when def
(cl-pushnew
@@ -1838,6 +1835,7 @@ ones. PREFIX is for internal use and should not be used."
((eq 'menu-item (car-safe def)) "menu-item")
((stringp def) def)
((vectorp def) (key-description def))
+ ((consp def) (car def))
(t "unknown")))
bindings :test (lambda (a b) (string= (car a) (car
b)))))))))
keymap)
