aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2016-11-22 11:09:15 -0500
committerMark Oteiza2016-11-22 11:09:15 -0500
commitc542fab20f53374dd0c71dce949ef370fc76fa48 (patch)
tree08af8f268d832f693f422827dbb66ba76b39827e
parentafe2997119a5e6b108851f2e236037da1d4acef2 (diff)
downloademacs-c542fab20f53374dd0c71dce949ef370fc76fa48.tar.gz
emacs-c542fab20f53374dd0c71dce949ef370fc76fa48.zip
; Fix previous change
strlen is already computed, just use the symbol. * lisp/ibuffer.el (ibuffer-compile-make-eliding-form): Use strlen.
-rw-r--r--lisp/ibuffer.el2
1 files changed, 1 insertions, 1 deletions
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."
1571(defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p) 1571(defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p)
1572 (if from-end-p 1572 (if from-end-p
1573 ;; FIXME: not sure if this case is correct (Bug#24972) 1573 ;; FIXME: not sure if this case is correct (Bug#24972)
1574 `(truncate-string-to-width str (string-width str) (- strlen ,maxvar) nil ?\s) 1574 `(truncate-string-to-width str strlen (- strlen ,maxvar) nil ?\s)
1575 `(truncate-string-to-width ,strvar ,maxvar nil ?\s))) 1575 `(truncate-string-to-width ,strvar ,maxvar nil ?\s)))
1576 1576
1577(defun ibuffer-compile-make-format-form (strvar widthform alignment) 1577(defun ibuffer-compile-make-format-form (strvar widthform alignment)