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

Fix case sorting in alpha sort functions

Browse Source
This commit is contained in:
Justin Burkett 2020-02-12 09:23:18 -05:00
parent 9ff54fffbb
commit 7b068f3e95
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
which-key-tests.el
View File

@ -170,12 +170,12 @@
(should
(equal
(mapcar 'car (sort (copy-sequence keys) 'which-key-key-order-alpha))
'("SPC" "a" "A" "b" "B" "p" "C-a"))))
'("SPC" "A" "a" "B" "b" "p" "C-a"))))
(let (which-key-sort-uppercase-first)
(should
(equal
(mapcar 'car (sort (copy-sequence keys) 'which-key-key-order-alpha))
'("SPC" "A" "a" "B" "b" "p" "C-a"))))
'("SPC" "a" "A" "b" "B" "p" "C-a"))))
(let ((which-key-sort-uppercase-first t))
(should
(equal

4
which-key.el
View File

@ -1321,11 +1321,11 @@ width) in lines and characters respectively."
(cond
((and alpha (not which-key-sort-uppercase-first))
(if (string-equal da db)
(string-lessp a b)
(not (string-lessp a b))
(string-lessp da db)))
((and alpha which-key-sort-uppercase-first)
(if (string-equal da db)
(not (string-lessp a b))
(string-lessp a b)
(string-lessp da db)))
((not which-key-sort-uppercase-first)
(let ((aup (not (string-equal da a)))