From fff861a2e0ad249c9a7d4ec5c0e8a2c7813e6378 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 20 Feb 2006 00:56:31 +0000 Subject: [PATCH] (list-buffers-noselect): Turn also "\n" into a strech spec so it doesn't display as "^J" on the header line when `Buffer-menu-use-header-line' is t. --- lisp/buff-menu.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 5388ff9863d..3094da3bfe8 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -706,9 +706,9 @@ For more information, see the function `buffer-menu'." list desired-point) (when Buffer-menu-use-header-line (let ((pos 0)) - ;; Turn spaces in the header into stretch specs so they work - ;; regardless of the header-line face. - (while (string-match "[ \t]+" header pos) + ;; Turn whitespace chars in the header into stretch specs so + ;; they work regardless of the header-line face. + (while (string-match "[ \t\n]+" header pos) (setq pos (match-end 0)) (put-text-property (match-beginning 0) pos 'display ;; Assume fixed-size chars in the buffer. @@ -726,6 +726,7 @@ For more information, see the function `buffer-menu'." (erase-buffer) (setq standard-output (current-buffer)) (unless Buffer-menu-use-header-line + ;; Use U+2014 (EM DASH) to underline if possible, else U+002D (HYPHEN-MINUS) (let ((underline (if (char-displayable-p ?—) ?— ?-))) (insert header (apply 'string -- 2.39.2