Mercurial > emacs
changeset 87992:1787561f6c22
(ls-lisp-insert-directory): If -n switch is used, invoke
directory-files-and-attributes with last argument `integer' instead
of `string'.
(insert-directory): Add -n to the list of supported switches mentioned in
the doc string.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 26 Jan 2008 13:14:28 +0000 |
| parents | 66e6887d98d0 |
| children | 1d7d58dea6a5 |
| files | lisp/ls-lisp.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ls-lisp.el Sat Jan 26 13:04:14 2008 +0000 +++ b/lisp/ls-lisp.el Sat Jan 26 13:14:28 2008 +0000 @@ -209,7 +209,7 @@ supports ordinary shell wildcards if `ls-lisp-support-shell-wildcards' is non-nil; otherwise, it interprets wildcards as regular expressions to match file names. It does not support all `ls' switches -- those -that work are: A a c i r S s t u U X g G B C R and F partly." +that work are: A a c i r S s t u U X g G B C R n and F partly." (if ls-lisp-use-insert-directory-program (funcall original-insert-directory file switches wildcard full-directory-p) @@ -286,7 +286,10 @@ (let* ((dir (file-name-as-directory file)) (default-directory dir) ; so that file-attributes works (file-alist - (directory-files-and-attributes dir nil wildcard-regexp t 'string)) + (directory-files-and-attributes dir nil wildcard-regexp t + (if (memq ?n switches) + 'integer + 'string))) (now (current-time)) (sum 0) ;; do all bindings here for speed