; Fix previous change

strlen is already computed, just use the symbol.
* lisp/ibuffer.el (ibuffer-compile-make-eliding-form): Use strlen.
This commit is contained in:
Mark Oteiza 2016-11-22 11:09:15 -05:00
parent afe2997119
commit c542fab20f

View file

@ -1571,7 +1571,7 @@ If point is on a group name, this function operates on that group."
(defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p)
(if from-end-p
;; FIXME: not sure if this case is correct (Bug#24972)
`(truncate-string-to-width str (string-width str) (- strlen ,maxvar) nil ?\s)
`(truncate-string-to-width str strlen (- strlen ,maxvar) nil ?\s)
`(truncate-string-to-width ,strvar ,maxvar nil ?\s)))
(defun ibuffer-compile-make-format-form (strvar widthform alignment)