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:
Lars Ingebrigtsen 2016-04-28 18:51:51 +02:00
parent c3ac2cbf73
commit f078ef90cb

View file

@ -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