diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2016-11-20 13:55:28 -0500 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2016-11-20 13:55:28 -0500 |
| commit | 7e2a8b17aea197f2b2609878180d281ac2dfe0d4 (patch) | |
| tree | e76d4485cad71a217bf753ce3d90f955811bfe33 /lisp/ibuffer.el | |
| parent | 56a47981cc921369dd124cc023ca1469225b1fa7 (diff) | |
| download | emacs-7e2a8b17aea197f2b2609878180d281ac2dfe0d4.tar.gz | |
* lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 8d7ec59462d..8c641797858 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1638,7 +1638,7 @@ If point is on a group name, this function operates on that group." max 'max) from-end-p)) - (setq strlen (length str)) + (setq strlen (string-width str)) (setq str ,(ibuffer-compile-make-eliding-form 'str elide from-end-p))))) @@ -1696,7 +1696,7 @@ If point is on a group name, this function operates on that group." outforms) (push `(setq str ,callform ,@(when strlen-used - `(strlen (length str)))) + `(strlen (string-width str)))) outforms) (setq outforms (append outforms |