Bug fix for vc-dispatcher split.

[bpt/emacs.git] / lisp / ls-lisp.el

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index f1a05a6..4f13a02 100644 (file)
--- 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))