(ls-lisp-dired-ignore-case): New variable.

(ls-lisp-handle-switches): Obey ls-lisp-dired-ignore-case.

1 files changed, 12 insertions, 4 deletions

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index dbebfb800ce..a3c4c9a0f6c 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -63,6 +63,9 @@ nil means they are treated as Emacs regexps (for backward compatibility).
 This variable is checked by \\[insert-directory] only when `ls-lisp.el'
 package is used.")
 
+(defvar ls-lisp-dired-ignore-case nil
+  "Non-nil causes dired buffers to sort alphabetically regardless of case.")
+
 (defun insert-directory (file &optional switches wildcard full-directory-p)
   "Insert directory listing for FILE, formatted according to SWITCHES.
 Leaves point after the inserted text.
@@ -188,10 +191,15 @@ are: A a c i r S s t u"
                           (ls-lisp-time-lessp (nth index (cdr y))
                                               (nth index (cdr x))))))
                       (t                ; sorted alphabetically
-                       (function
-                        (lambda (x y)
-                          (string-lessp (car x)
-                                        (car y)))))))))
+                       (if ls-lisp-dired-ignore-case
+                           (function
+                            (lambda (x y)
+                              (string-lessp (upcase (car x))
+                                            (upcase (car y)))))
+                         (function
+                          (lambda (x y)
+                            (string-lessp (car x)
+                                          (car y))))))))))
   (if (memq ?r switches)                ; reverse sort order
       (setq file-alist (nreverse file-alist)))
   file-alist)