procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(insert-directory): Doc fix.

Browse source 
(ls-lisp-format): Provide user name when known.
On ms-dos, provide a name for the group, to be prettier.
This commit is contained in:
Richard M. Stallman 1993-06-29 17:08:09 +00:00
parent 7324d660df
commit a12ff9f32b
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/ls-lisp.el
View file

@ -22,7 +22,7 @@
;; INSTALLATION =======================================================
;;
;; Put this file into your load-path. To use it, load it
;; with (load "directory").
;; with (load "ls-lisp").
;; OVERVIEW ===========================================================
@ -57,7 +57,7 @@ Optional third arg WILDCARD means treat FILE as shell wildcard.
Optional fourth arg FULL-DIRECTORY-P means file is a directory and
switches do not contain `d', so that a full listing is expected.
This version of the function comes from `directory.el'.
This version of the function comes from `ls-lisp.el'.
It does not support ordinary shell wildcards; instead, it allows
regular expressions to match file names.
@ -187,8 +187,12 @@ The switches that work are: A a c i r S s t u"
;; optional arg.
(format " %3d %-8d %-8d %8d "
(nth 1 file-attr) ; no. of links
(nth 2 file-attr) ; uid
(nth 3 file-attr) ; gid
(if (= (user-uid) (nth 2 file-attr))
(user-login-name)
(nth 2 file-attr)) ; uid
(if (eq system-type 'ms-dos)
"root" ; everything is root on MSDOS.
(nth 3 file-attr)) ; gid
(nth 7 file-attr) ; size in bytes
)
(ls-lisp-format-time file-attr switches)