diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-02-20 00:56:31 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-02-20 00:56:31 +0000 |
| commit | fff861a2e0ad249c9a7d4ec5c0e8a2c7813e6378 (patch) | |
| tree | 93c5210900de5f47e3f1c05ea7ef55674a4f5f8f /lisp/buff-menu.el | |
| parent | ffb2cf00c2960a4c3c63cfd9a72ee2c132006479 (diff) | |
| download | emacs-fff861a2e0ad249c9a7d4ec5c0e8a2c7813e6378.tar.gz | |
(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.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 7 |
1 files 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 |