procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ls-lisp-insert-directory): Use string-width' instead of length'

Browse source 
for comparing length of user and group names.
This commit is contained in:
Eli Zaretskii 2008-05-03 10:28:39 +00:00
parent 17f039f312
commit a43e305413
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ls-lisp.el
View file

@ -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))