diff --git a/which-key.el b/which-key.el index 2f89f400ae5..d66cec5d261 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)