From 98544ea3ea1638228db48c5ff993caded470d9c1 Mon Sep 17 00:00:00 2001
From: Shigeru Fukaya <shigeru.fukaya@gmail.com>
Date: Sat, 21 Jun 2014 12:35:55 +0900
Subject: [PATCH] Fix bs-show with wide characters (Bug#17822)

* lisp/bs.el (bs--insert-one-entry, bs-show-in-buffer): Use
string-width instead of length.
---
 lisp/bs.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/bs.el b/lisp/bs.el
index 0d65da14c72..32431ba4466 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -1159,7 +1159,7 @@ and move point to current buffer."
   (bs-mode)
   (let* ((inhibit-read-only t)
 	 (map-fun (lambda (entry)
-		    (length (buffer-name entry))))
+		    (string-width (buffer-name entry))))
 	 (max-length-of-names (apply 'max
 				     (cons 0 (mapcar map-fun list))))
 	 (name-entry-length (min bs-maximal-buffer-name-column
@@ -1371,7 +1371,7 @@ normally *buffer-selection*."
 							  apply-args)
 					   (nth 3 column)                ; align
 					   (- min to-much)))
-	       (len (length new-string)))
+	       (len (string-width new-string)))
 	  (setq string (concat string new-string))
 	  (when (> len min)
 	    (setq to-much (- len min))))))
-- 
2.39.2