diff options
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index f1a05a6f8c8..4f13a023ab8 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -329,9 +329,11 @@ not contain `d', so that a full listing is expected." (dolist (elt file-alist) (setq attr (cdr elt) fuid (nth 2 attr) - uid-len (length (if (stringp fuid) fuid (format "%d" fuid))) + uid-len (if (stringp fuid) (string-width fuid) + (length (format "%d" fuid))) fgid (nth 3 attr) - gid-len (length (if (stringp fgid) fgid (format "%d" fgid))) + gid-len (if (stringp fgid) (string-width fgid) + (length (format "%d" fgid))) file-size (nth 7 attr)) (if (> uid-len max-uid-len) (setq max-uid-len uid-len)) |