diff options
| author | Mark Oteiza | 2016-11-22 11:09:15 -0500 |
|---|---|---|
| committer | Mark Oteiza | 2016-11-22 11:09:15 -0500 |
| commit | c542fab20f53374dd0c71dce949ef370fc76fa48 (patch) | |
| tree | 08af8f268d832f693f422827dbb66ba76b39827e | |
| parent | afe2997119a5e6b108851f2e236037da1d4acef2 (diff) | |
| download | emacs-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.el | 2 |
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) |