diff options
| -rw-r--r-- | lisp/ibuffer.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index b2ec073dc16..704907a79f7 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -1740,7 +1740,13 @@ If point is on a group name, this function operates on that group." | |||
| 1740 | (cond ((zerop bufs) "No buffers") | 1740 | (cond ((zerop bufs) "No buffers") |
| 1741 | ((= 1 bufs) "1 buffer") | 1741 | ((= 1 bufs) "1 buffer") |
| 1742 | (t (format "%s buffers" bufs)))))) | 1742 | (t (format "%s buffers" bufs)))))) |
| 1743 | (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark))) | 1743 | (let ((string (propertize (buffer-name) |
| 1744 | 'font-lock-face | ||
| 1745 | (ibuffer-buffer-name-face buffer mark)))) | ||
| 1746 | (if (not (seq-position string ?\n)) | ||
| 1747 | string | ||
| 1748 | (replace-regexp-in-string | ||
| 1749 | "\n" (propertize "^J" 'font-lock-face 'escape-glyph) string)))) | ||
| 1744 | 1750 | ||
| 1745 | (define-ibuffer-column size | 1751 | (define-ibuffer-column size |
| 1746 | (:inline t | 1752 | (:inline t |