mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-17 10:27:41 +00:00
Make ibuffer not break on newline-embedded buffer names
* lisp/ibuffer.el (name): When buffer names contain newlines, quote those newlines before displaying (bug#12378).
This commit is contained in:
parent
c3ac2cbf73
commit
f078ef90cb
1 changed files with 7 additions and 1 deletions
|
|
@ -1740,7 +1740,13 @@ If point is on a group name, this function operates on that group."
|
|||
(cond ((zerop bufs) "No buffers")
|
||||
((= 1 bufs) "1 buffer")
|
||||
(t (format "%s buffers" bufs))))))
|
||||
(propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark)))
|
||||
(let ((string (propertize (buffer-name)
|
||||
'font-lock-face
|
||||
(ibuffer-buffer-name-face buffer mark))))
|
||||
(if (not (seq-position string ?\n))
|
||||
string
|
||||
(replace-regexp-in-string
|
||||
"\n" (propertize "^J" 'font-lock-face 'escape-glyph) string))))
|
||||
|
||||
(define-ibuffer-column size
|
||||
(:inline t
|
||||
|
|
|
|||
Loading…
Reference in a new issue