mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

Fix prefix sorting

Browse Source
This commit is contained in:
Justin Burkett 2021-06-21 14:55:05 -04:00
parent 465d2fb2e4
commit e42d946cd9
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
which-key-tests.el
View File

@ -189,7 +189,7 @@
("A" . "Z")
("b" . "y")
("B" . "Y")
("p" . "Prefix")
("p" . "prefix")
("SPC" . "x")
("C-a" . "w"))))
(let ((which-key-sort-uppercase-first t))

3
which-key.el
View File

@ -1401,7 +1401,8 @@ Uses `string-lessp' after applying lowercase."
(string-lessp (downcase (cdr acons)) (downcase (cdr bcons))))
(defsubst which-key--group-p (description)
(keymapp (intern description)))
(or (equal description "prefix")
(keymapp (intern description))))
(defun which-key-prefix-then-key-order (acons bcons)
"Order first by whether A and/or B is a prefix with no prefix