mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00
Code Issues Projects Releases Wiki 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
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)))