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

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

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)