From: Geoff Voelker <voelker@cs.washington.edu>
Date: Fri, 17 Apr 1998 05:24:48 +0000 (+0000)
Subject: (ls-lisp-dired-ignore-case): New variable.
X-Git-Tag: emacs-20.3~1455
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97b927b3fa3faa8422e78ddd41d22a84af1a0613;p=emacs.git

(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 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)