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 f970fce1ed2c58ebe559f418b6413a7ad4f82053..b3365059d253a7016a79e320da5dcb7bd042bf9e 100644 (file)
--- 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)