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

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

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index dbebfb800ce29e899eb8921daad3d253efcfb530..a3c4c9a0f6c6624c986a5bfc27ac89a1f72de21b 100644 (file)
--- 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)