[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/05/03 10:27:21

Index: ls-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ls-lisp.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -b -r1.75 -r1.76
--- ls-lisp.el  25 Apr 2008 10:34:22 -0000      1.75
+++ ls-lisp.el  3 May 2008 10:27:21 -0000       1.76
@@ -329,9 +329,11 @@
          (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))