diff options
| author | Juri Linkov | 2020-10-06 21:33:20 +0300 |
|---|---|---|
| committer | Juri Linkov | 2020-10-06 21:33:20 +0300 |
| commit | c30f6da0da0469f73fad205b134b1de82a1b1b65 (patch) | |
| tree | 3c1d836258fdb36383c137b7f9418a77170ee31a | |
| parent | 278c9d69cda1eb10ec21f619f0d97014ee6ad51a (diff) | |
| download | emacs-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.el | 2 |
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) |