mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 08:20:41 -08:00
Code Issues Projects Releases Wiki Activity

Fix recent commit

Browse source
This commit is contained in:
Justin Burkett 2021-05-31 22:48:53 -04:00
parent 81d93952af
commit 7e854d0203
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
which-key.el
View file

@ -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)