Mercurial > emacs

comparison lisp/ls-lisp.el @ 37330:5e7b789ce251

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))))))