From 7e2a8b17aea197f2b2609878180d281ac2dfe0d4 Mon Sep 17 00:00:00 2001
From: Mark Oteiza <mvoteiza@udel.edu>
Date: Sun, 20 Nov 2016 13:55:28 -0500
Subject: [PATCH] * 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 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