bug#17822: bs-show with mulitbyte characters doesn't work well

[Shigeru Fukaya <shigeru.fukaya@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 438 bytes --]

>> `bs-show' displays buffer information on incorrect column position.
>> It is because `bs-show' calculates column using `length' for multibyte
>> strings.
>
>> Just changing `length' to `string-width' in `bs-show-in-buffer' and
>> `bs--insert-one-entry' will solve the problem.
>
>Indeed (tho this is not a "multibyte" problem, but a problem with
>double-width chars).
Oh, I'll remember the term.

>Can you provide a patch?
OK

Shigeru

[-- Attachment #2: bs.diff --]
[-- Type: application/octet-stream, Size: 777 bytes --]

--- orig/bs.el	2014-03-21 14:34:40.000000000 +0900
+++ ./bs.el	2014-06-21 12:26:39.114537800 +0900
@@ -1128,7 +1128,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
@@ -1340,7 +1340,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))))))