From: Mark Oteiza <mvoteiza@udel.edu>
Date: Tue, 22 Nov 2016 16:09:15 +0000 (-0500)
Subject: ; Fix previous change
X-Git-Tag: emacs-26.0.90~1276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c542fab20f53374dd0c71dce949ef370fc76fa48;p=emacs.git

; Fix previous change

strlen is already computed, just use the symbol.
* lisp/ibuffer.el (ibuffer-compile-make-eliding-form): Use strlen.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index dc5681c4659..51d7cb90755 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -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)