From: Juri Linkov <juri@linkov.net>
Date: Tue, 6 Oct 2020 18:33:20 +0000 (+0300)
Subject: Fix args of truncate-string-to-width in ibuffer-compile-make-substring-form
X-Git-Tag: emacs-28.0.90~5730
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c30f6da0da0469f73fad205b134b1de82a1b1b65;p=emacs.git

Fix args of truncate-string-to-width in ibuffer-compile-make-substring-form

* lisp/ibuffer.el (ibuffer-compile-make-substring-form): Fix args of
truncate-string-to-width call (bug#41250)
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index c9a748830c1..8ff3b56c5e6 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1597,7 +1597,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 strlen (- strlen ,maxvar) nil ?\s)
+      `(truncate-string-to-width str strlen (- strlen ,maxvar) ?\s)
     `(truncate-string-to-width ,strvar ,maxvar nil ?\s)))
 
 (defun ibuffer-compile-make-format-form (strvar widthform alignment)