From: Juanma Barranquero Date: Mon, 20 Feb 2006 00:56:31 +0000 (+0000) Subject: (list-buffers-noselect): Turn also "\n" into a strech spec so it doesn't display X-Git-Tag: emacs-pretest-22.0.90~4014 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fff861a2e0ad249c9a7d4ec5c0e8a2c7813e6378;p=emacs.git (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. --- 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