Commit 7b4a3608 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(ls-lisp-format): Bad format for uid and gid fixed.

parent 35f7e85b
...@@ -185,14 +185,14 @@ The switches that work are: A a c i r S s t u" ...@@ -185,14 +185,14 @@ The switches that work are: A a c i r S s t u"
;; Emacs should be able to make strings of them. ;; Emacs should be able to make strings of them.
;; user-login-name and user-full-name could take an ;; user-login-name and user-full-name could take an
;; optional arg. ;; optional arg.
(format " %3d %-8d %-8d %8d " (format " %3d %8s %8s %8d "
(nth 1 file-attr) ; no. of links (nth 1 file-attr) ; no. of links
(if (= (user-uid) (nth 2 file-attr)) (if (= (user-uid) (nth 2 file-attr))
(user-login-name) (user-login-name)
(nth 2 file-attr)) ; uid (int-to-string (nth 2 file-attr))) ; uid
(if (eq system-type 'ms-dos) (if (eq system-type 'ms-dos)
"root" ; everything is root on MSDOS. "root" ; everything is root on MSDOS.
(nth 3 file-attr)) ; gid (int-to-string (nth 3 file-attr))) ; gid
(nth 7 file-attr) ; size in bytes (nth 7 file-attr) ; size in bytes
) )
(ls-lisp-format-time file-attr switches) (ls-lisp-format-time file-attr switches)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment