Mercurial > emacs
comparison lisp/ls-lisp.el @ 21620:611b5f660ee6
(ls-lisp-dired-ignore-case): New variable.
(ls-lisp-handle-switches): Obey ls-lisp-dired-ignore-case.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Fri, 17 Apr 1998 05:24:48 +0000 |
| parents | 727cf56647a4 |
| children | 86791cda515c |
comparison
equal
deleted
inserted
replaced
| 21619:ed3990c73096 | 21620:611b5f660ee6 |
|---|---|
| 60 (defvar ls-lisp-support-shell-wildcards t | 60 (defvar ls-lisp-support-shell-wildcards t |
| 61 "*Non-nil means file patterns are treated as shell wildcards. | 61 "*Non-nil means file patterns are treated as shell wildcards. |
| 62 nil means they are treated as Emacs regexps (for backward compatibility). | 62 nil means they are treated as Emacs regexps (for backward compatibility). |
| 63 This variable is checked by \\[insert-directory] only when `ls-lisp.el' | 63 This variable is checked by \\[insert-directory] only when `ls-lisp.el' |
| 64 package is used.") | 64 package is used.") |
| 65 | |
| 66 (defvar ls-lisp-dired-ignore-case nil | |
| 67 "Non-nil causes dired buffers to sort alphabetically regardless of case.") | |
| 65 | 68 |
| 66 (defun insert-directory (file &optional switches wildcard full-directory-p) | 69 (defun insert-directory (file &optional switches wildcard full-directory-p) |
| 67 "Insert directory listing for FILE, formatted according to SWITCHES. | 70 "Insert directory listing for FILE, formatted according to SWITCHES. |
| 68 Leaves point after the inserted text. | 71 Leaves point after the inserted text. |
| 69 Optional third arg WILDCARD means treat FILE as shell wildcard. | 72 Optional third arg WILDCARD means treat FILE as shell wildcard. |
| 186 (function | 189 (function |
| 187 (lambda (x y) | 190 (lambda (x y) |
| 188 (ls-lisp-time-lessp (nth index (cdr y)) | 191 (ls-lisp-time-lessp (nth index (cdr y)) |
| 189 (nth index (cdr x)))))) | 192 (nth index (cdr x)))))) |
| 190 (t ; sorted alphabetically | 193 (t ; sorted alphabetically |
| 191 (function | 194 (if ls-lisp-dired-ignore-case |
| 192 (lambda (x y) | 195 (function |
| 193 (string-lessp (car x) | 196 (lambda (x y) |
| 194 (car y))))))))) | 197 (string-lessp (upcase (car x)) |
| 198 (upcase (car y))))) | |
| 199 (function | |
| 200 (lambda (x y) | |
| 201 (string-lessp (car x) | |
| 202 (car y)))))))))) | |
| 195 (if (memq ?r switches) ; reverse sort order | 203 (if (memq ?r switches) ; reverse sort order |
| 196 (setq file-alist (nreverse file-alist))) | 204 (setq file-alist (nreverse file-alist))) |
| 197 file-alist) | 205 file-alist) |
| 198 | 206 |
| 199 ;; From Roland McGrath. Can use this to sort on time. | 207 ;; From Roland McGrath. Can use this to sort on time. |