X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/162f18539257a2d24c0bfed9a7206bd8c03b6661..c8109d9c4057d8cac79e2c139758cadd410e7446:/lisp/ibuffer.el

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index b2ec073dc1..704907a79f 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."
        (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