diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2008-05-03 10:28:39 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2008-05-03 10:28:39 +0000 |
| commit | a43e305413e3cce45496bcbfa6845b7fd6c206cc (patch) | |
| tree | 989c086d6353bed13918ceb38e62f4cc26b500af /lisp/ls-lisp.el | |
| parent | 17f039f312eba0f304a33abd7890328a02417fd4 (diff) | |
| download | emacs-a43e305413e3cce45496bcbfa6845b7fd6c206cc.tar.gz | |
(ls-lisp-insert-directory): Use `string-width' instead of `length'
for comparing length of user and group names.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index f1a05a6f8c8..4f13a023ab8 100644 --- 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)) |