From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 24 Jun 2022 12:54:43 +0000 (+0200)
Subject: Make ido sorting respect ido-case-fold
X-Git-Tag: emacs-29.0.90~1447^2~1486
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41c09d347feb94b9070a9aa2c78ccf65be7fd268;p=emacs.git

Make ido sorting respect ido-case-fold

* lisp/ido.el (ido-file-lessp):
(ido-file-extension-lessp): Respect ido-case-fold (bug#47127).
---

diff --git a/lisp/ido.el b/lisp/ido.el
index f970fce1ed2..b3365059d25 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -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)