From: Mark Oteiza <mvoteiza@udel.edu>
Date: Sun, 20 Nov 2016 18:55:28 +0000 (-0500)
Subject: * lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length
X-Git-Tag: emacs-26.0.90~1291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e2a8b17aea197f2b2609878180d281ac2dfe0d4;p=emacs.git

* lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length
---

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