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

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-03 Eli Zaretskii <eliz@gnu.org>
* ls-lisp.el (ls-lisp-insert-directory): Use `string-width'
instead of `length' for comparing length of user and group names.
2008-05-03 Eric S. Raymond <esr@snark.thyrsus.com> 2008-05-03 Eric S. Raymond <esr@snark.thyrsus.com>
* vc-dispatcher.el: New file, separates out the UI and command * vc-dispatcher.el: New file, separates out the UI and command

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) (dolist (elt file-alist)
(setq attr (cdr elt) (setq attr (cdr elt)
fuid (nth 2 attr) 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) 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)) file-size (nth 7 attr))
(if (> uid-len max-uid-len) (if (> uid-len max-uid-len)
(setq max-uid-len uid-len)) (setq max-uid-len uid-len))