diff options
| -rw-r--r-- | lisp/ls-lisp.el | 16 |
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) |