Commit 98544ea3 authored by Shigeru Fukaya's avatar Shigeru Fukaya Committed by Noam Postavsky

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.
parent 85af51ba
......@@ -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))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment