mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(ls-lisp-insert-directory): If -n switch is used, invoke

Browse Source 
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.
This commit is contained in:
Eli Zaretskii 2008-01-26 13:15:27 +00:00
parent c617afcea1
commit de4db6f103
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2008-01-26 Eli Zaretskii <eliz@gnu.org>
* ls-lisp.el (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.
2008-01-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* blank-mode.el: New version 9.1. Handle "long" line tail

7
lisp/ls-lisp.el
View File

@ -209,7 +209,7 @@ The Lisp emulation does not run any external programs or shells. It
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 @@ not contain `d', so that a full listing is expected."
(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