diff options
| author | Justin Burkett | 2021-05-31 22:48:53 -0400 |
|---|---|---|
| committer | Justin Burkett | 2021-05-31 22:48:53 -0400 |
| commit | 7e854d02037c8ec84ac26bb77b98f670d8d3eb2e (patch) | |
| tree | f3b20f02b5943f94cf1118745b2d935ce480412f | |
| parent | 81d93952afe0bc36d95fd166de62529b656ab49f (diff) | |
| download | emacs-7e854d02037c8ec84ac26bb77b98f670d8d3eb2e.tar.gz emacs-7e854d02037c8ec84ac26bb77b98f670d8d3eb2e.zip | |
Fix recent commit
| -rw-r--r-- | which-key.el | 4 |
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) |