diff options
| author | Shigeru Fukaya <shigeru.fukaya@gmail.com> | 2014-06-21 12:35:55 +0900 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-09-19 18:48:07 -0400 |
| commit | 98544ea3ea1638228db48c5ff993caded470d9c1 (patch) | |
| tree | 07f20163e52f0d0873c53e42de4731a38e5b69a5 | |
| parent | 85af51bab161473afed53517a81c2c3fb1f24b7c (diff) | |
| download | emacs-98544ea3ea1638228db48c5ff993caded470d9c1.tar.gz | |
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.
| -rw-r--r-- | lisp/bs.el | 4 |
1 files 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)))))) |