comparison lisp/ls-lisp.el @ 110990:7b9f631537db

merge emacs-23
author Kenichi Handa <handa@m17n.org>
date Thu, 14 Oct 2010 11:06:31 +0900
parents cda2045a5ee8
children b8fde5ef9e14 21858bb1a2e7
comparison
equal deleted inserted replaced
110984:287d5a665560 110990:7b9f631537db
619 ;; Numeric uid/gid are more confusing than helpful; 619 ;; Numeric uid/gid are more confusing than helpful;
620 ;; Emacs should be able to make strings of them. 620 ;; Emacs should be able to make strings of them.
621 ;; They tend to be bogus on non-UNIX platforms anyway so 621 ;; They tend to be bogus on non-UNIX platforms anyway so
622 ;; optionally hide them. 622 ;; optionally hide them.
623 (if (memq 'uid ls-lisp-verbosity) 623 (if (memq 'uid ls-lisp-verbosity)
624 ;; uid can be a sting or an integer 624 ;; uid can be a string or an integer
625 (let ((uid (nth 2 file-attr))) 625 (let ((uid (nth 2 file-attr)))
626 (format (if (stringp uid) 626 (format (if (stringp uid)
627 ls-lisp-uid-s-fmt 627 ls-lisp-uid-s-fmt
628 ls-lisp-uid-d-fmt) 628 ls-lisp-uid-d-fmt)
629 uid))) 629 uid)))