mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Fix bs-show with wide characters (Bug#17822)

Browse Source 
* lisp/bs.el (bs--insert-one-entry, bs-show-in-buffer): Use
string-width instead of length.
This commit is contained in:
Shigeru Fukaya 2014-06-21 12:35:55 +09:00 committed by Noam Postavsky
parent 85af51bab1
commit 98544ea3ea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/bs.el
View File

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