[Emacs-diffs] master 7e2a8b1: * lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length

[Mark Oteiza]

branch: master
commit 7e2a8b17aea197f2b2609878180d281ac2dfe0d4
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    * lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of 
length
---
 lisp/ibuffer.el |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 8d7ec59..8c64179 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