diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-24 14:54:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-24 20:18:21 +0200 |
| commit | 41c09d347feb94b9070a9aa2c78ccf65be7fd268 (patch) | |
| tree | 90374f1c31244b3667ebabd52f425cc1fee58038 | |
| parent | c7f141d67829ccef64a5e4e961f098f09774afe2 (diff) | |
| download | emacs-41c09d347feb94b9070a9aa2c78ccf65be7fd268.tar.gz | |
Make ido sorting respect ido-case-fold
* lisp/ido.el (ido-file-lessp):
(ido-file-extension-lessp): Respect ido-case-fold (bug#47127).
| -rw-r--r-- | lisp/ido.el | 10 |
1 files changed, 8 insertions, 2 deletions
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) |