[Emacs-diffs] scratch/backports-25.2 7826f1f 32/46: Make ibuffer not break on newline-embedded buffer names

[Noam Postavsky]

branch: scratch/backports-25.2
commit 7826f1f2600de2c0c49a27090990f647908d9fff
Author: Lars Ingebrigtsen <address@hidden>
Commit: Noam Postavsky <address@hidden>

    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).
    
    (cherry picked from commit f078ef90cbcf479053efd81e1d95e50e64da2e99)
---
 lisp/ibuffer.el |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 9d23e64..04419e1 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1742,7 +1742,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