aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJustin Burkett2021-05-31 22:48:53 -0400
committerJustin Burkett2021-05-31 22:48:53 -0400
commit7e854d02037c8ec84ac26bb77b98f670d8d3eb2e (patch)
treef3b20f02b5943f94cf1118745b2d935ce480412f
parent81d93952afe0bc36d95fd166de62529b656ab49f (diff)
downloademacs-7e854d02037c8ec84ac26bb77b98f670d8d3eb2e.tar.gz
emacs-7e854d02037c8ec84ac26bb77b98f670d8d3eb2e.zip
Fix recent commit
-rw-r--r--which-key.el4
1 files changed, 1 insertions, 3 deletions
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."
1824 (setq bindings 1824 (setq bindings
1825 (append bindings 1825 (append bindings
1826 (which-key--get-keymap-bindings def t key)))) 1826 (which-key--get-keymap-bindings def t key))))
1827 ((and def (consp def))
1828 (cl-pushnew (cons key-desc (car def))
1829 bindings :test (lambda (a b) (string= (car a) (car b)))))
1830 (t 1827 (t
1831 (when def 1828 (when def
1832 (cl-pushnew 1829 (cl-pushnew
@@ -1838,6 +1835,7 @@ ones. PREFIX is for internal use and should not be used."
1838 ((eq 'menu-item (car-safe def)) "menu-item") 1835 ((eq 'menu-item (car-safe def)) "menu-item")
1839 ((stringp def) def) 1836 ((stringp def) def)
1840 ((vectorp def) (key-description def)) 1837 ((vectorp def) (key-description def))
1838 ((consp def) (car def))
1841 (t "unknown"))) 1839 (t "unknown")))
1842 bindings :test (lambda (a b) (string= (car a) (car b))))))))) 1840 bindings :test (lambda (a b) (string= (car a) (car b)))))))))
1843 keymap) 1841 keymap)