Mercurial > emacs
comparison lisp/ls-lisp.el @ 37330:5e7b789ce251
(ls-lisp-format): Leave a blank before "root".
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Thu, 12 Apr 2001 15:16:03 +0000 |
parents | 11e866e5a825 |
children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
37329:b3696bdf8335 | 37330:5e7b789ce251 |
---|---|
489 (if (not (memq ?G switches)) ; GNU ls -- shows group by default | 489 (if (not (memq ?G switches)) ; GNU ls -- shows group by default |
490 (if (or (memq ?g switches) ; UNIX ls -- no group by default | 490 (if (or (memq ?g switches) ; UNIX ls -- no group by default |
491 (memq 'gid ls-lisp-verbosity)) | 491 (memq 'gid ls-lisp-verbosity)) |
492 (if (memq system-type '(macos windows-nt ms-dos)) | 492 (if (memq system-type '(macos windows-nt ms-dos)) |
493 ;; No useful concept of group... | 493 ;; No useful concept of group... |
494 "root" | 494 " root" |
495 (let* ((gid (nth 3 file-attr)) | 495 (let* ((gid (nth 3 file-attr)) |
496 (group (user-login-name gid))) | 496 (group (user-login-name gid))) |
497 (if group | 497 (if group |
498 (format " %-8s" group) | 498 (format " %-8s" group) |
499 (format " %-8d" gid)))))) | 499 (format " %-8d" gid)))))) |