From: Shigeru Fukaya <shigeru.fukaya@gmail.com>
Date: Sat, 21 Jun 2014 03:35:55 +0000 (+0900)
Subject: Fix bs-show with wide characters (Bug#17822)
X-Git-Tag: emacs-26.1.90~141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98544ea;p=emacs.git

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.
---

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))))))