From 97b927b3fa3faa8422e78ddd41d22a84af1a0613 Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Fri, 17 Apr 1998 05:24:48 +0000 Subject: [PATCH] (ls-lisp-dired-ignore-case): New variable. (ls-lisp-handle-switches): Obey ls-lisp-dired-ignore-case. --- lisp/ls-lisp.el | 16 ++++++++++++---- 1 file 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) -- 2.39.2