# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1209810441 0
# Node ID 9a020be031da5d16897b14bb1edc7d38972682e9
# Parent  dca2377770e7b8970a49e93937dbfbf40f57970a
(ls-lisp-insert-directory): Use `string-width' instead of `length'
for comparing length of user and group names.

diff -r dca2377770e7 -r 9a020be031da lisp/ls-lisp.el
--- a/lisp/ls-lisp.el	Sat May 03 10:18:08 2008 +0000
+++ b/lisp/ls-lisp.el	Sat May 03 10:27:21 2008 +0000
@@ -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))