aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2020-10-06 21:33:20 +0300
committerJuri Linkov2020-10-06 21:33:20 +0300
commitc30f6da0da0469f73fad205b134b1de82a1b1b65 (patch)
tree3c1d836258fdb36383c137b7f9418a77170ee31a
parent278c9d69cda1eb10ec21f619f0d97014ee6ad51a (diff)
downloademacs-c30f6da0da0469f73fad205b134b1de82a1b1b65.tar.gz
emacs-c30f6da0da0469f73fad205b134b1de82a1b1b65.zip
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)
-rw-r--r--lisp/ibuffer.el2
1 files changed, 1 insertions, 1 deletions
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."
1597(defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p) 1597(defun ibuffer-compile-make-substring-form (strvar maxvar from-end-p)
1598 (if from-end-p 1598 (if from-end-p
1599 ;; FIXME: not sure if this case is correct (Bug#24972) 1599 ;; FIXME: not sure if this case is correct (Bug#24972)
1600 `(truncate-string-to-width str strlen (- strlen ,maxvar) nil ?\s) 1600 `(truncate-string-to-width str strlen (- strlen ,maxvar) ?\s)
1601 `(truncate-string-to-width ,strvar ,maxvar nil ?\s))) 1601 `(truncate-string-to-width ,strvar ,maxvar nil ?\s)))
1602 1602
1603(defun ibuffer-compile-make-format-form (strvar widthform alignment) 1603(defun ibuffer-compile-make-format-form (strvar widthform alignment)