Mercurial > emacs
changeset 3916:b3f0b10b39c8
(insert-directory): Doc fix.
(ls-lisp-format): Provide user name when known.
On ms-dos, provide a name for the group, to be prettier.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 29 Jun 1993 17:08:09 +0000 |
| parents | 55ed7a65746e |
| children | 00ea0fc45685 |
| files | lisp/ls-lisp.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ls-lisp.el Tue Jun 29 16:53:32 1993 +0000 +++ b/lisp/ls-lisp.el Tue Jun 29 17:08:09 1993 +0000 @@ -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 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 @@ ;; 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)