diff options
| -rw-r--r-- | lisp/ls-lisp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index e02b668aa71..38a68cdc10a 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el | |||
| @@ -185,14 +185,14 @@ The switches that work are: A a c i r S s t u" | |||
| 185 | ;; Emacs should be able to make strings of them. | 185 | ;; Emacs should be able to make strings of them. |
| 186 | ;; user-login-name and user-full-name could take an | 186 | ;; user-login-name and user-full-name could take an |
| 187 | ;; optional arg. | 187 | ;; optional arg. |
| 188 | (format " %3d %-8d %-8d %8d " | 188 | (format " %3d %8s %8s %8d " |
| 189 | (nth 1 file-attr) ; no. of links | 189 | (nth 1 file-attr) ; no. of links |
| 190 | (if (= (user-uid) (nth 2 file-attr)) | 190 | (if (= (user-uid) (nth 2 file-attr)) |
| 191 | (user-login-name) | 191 | (user-login-name) |
| 192 | (nth 2 file-attr)) ; uid | 192 | (int-to-string (nth 2 file-attr))) ; uid |
| 193 | (if (eq system-type 'ms-dos) | 193 | (if (eq system-type 'ms-dos) |
| 194 | "root" ; everything is root on MSDOS. | 194 | "root" ; everything is root on MSDOS. |
| 195 | (nth 3 file-attr)) ; gid | 195 | (int-to-string (nth 3 file-attr))) ; gid |
| 196 | (nth 7 file-attr) ; size in bytes | 196 | (nth 7 file-attr) ; size in bytes |
| 197 | ) | 197 | ) |
| 198 | (ls-lisp-format-time file-attr switches) | 198 | (ls-lisp-format-time file-attr switches) |