Mercurial > emacs
changeset 69024:fef6008cad43
(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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 20 Feb 2006 00:56:31 +0000 |
| parents | f01603b6b4ae |
| children | 5d9232b72d14 |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Mon Feb 20 00:03:15 2006 +0000 +++ b/lisp/buff-menu.el Mon Feb 20 00:56:31 2006 +0000 @@ -706,9 +706,9 @@ 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 @@ (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