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

* lisp/ibuffer.el (ibuffer-compile-format): Use string-width instead of length

Browse Source
This commit is contained in:
Mark Oteiza 2016-11-20 13:55:28 -05:00
parent 56a47981cc
commit 7e2a8b17ae
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/ibuffer.el
View File

@ -1638,7 +1638,7 @@ If point is on a group name, this function operates on that group."
max
'max)
from-end-p))
(setq strlen (length str))
(setq strlen (string-width str))
(setq str
,(ibuffer-compile-make-eliding-form
'str elide from-end-p)))))
@ -1696,7 +1696,7 @@ If point is on a group name, this function operates on that group."
outforms)
(push `(setq str ,callform
,@(when strlen-used
`(strlen (length str))))
`(strlen (string-width str))))
outforms)
(setq outforms
(append outforms