andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make ido sorting respect ido-case-fold

Browse source 
* lisp/ido.el (ido-file-lessp):
(ido-file-extension-lessp): Respect ido-case-fold (bug#47127).
This commit is contained in:
Lars Ingebrigtsen 2022-06-24 14:54:43 +02:00
parent c7f141d678
commit 41c09d347f
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ido.el
View file

@ -3205,12 +3205,18 @@ instead removed from the current item list."
;; File list sorting
(defun ido-file-lessp (a b)
;; Simple compare two file names.
"Simple compare two file names."
(when ido-case-fold
(setq a (downcase a)
b (downcase b)))
(string-lessp (ido-no-final-slash a) (ido-no-final-slash b)))
(defun ido-file-extension-lessp (a b)
;; Compare file names according to ido-file-extensions-order list.
"Compare file names according to ido-file-extensions-order list."
(when ido-case-fold
(setq a (downcase a)
b (downcase b)))
(let ((n (compare-strings a 0 nil b 0 nil nil))
lessp p)
(if (eq n t)