Mercurial > emacs
comparison lisp/buff-menu.el @ 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 | 3bd95f4f2941 |
| children | b4e6091c2346 d1c5430c5bff |
comparison
equal
deleted
inserted
replaced
| 69023:f01603b6b4ae | 69024:fef6008cad43 |
|---|---|
| 704 (Buffer-menu-make-sort-button "Mode" 4) mode-end | 704 (Buffer-menu-make-sort-button "Mode" 4) mode-end |
| 705 (Buffer-menu-make-sort-button "File" 5) "\n")) | 705 (Buffer-menu-make-sort-button "File" 5) "\n")) |
| 706 list desired-point) | 706 list desired-point) |
| 707 (when Buffer-menu-use-header-line | 707 (when Buffer-menu-use-header-line |
| 708 (let ((pos 0)) | 708 (let ((pos 0)) |
| 709 ;; Turn spaces in the header into stretch specs so they work | 709 ;; Turn whitespace chars in the header into stretch specs so |
| 710 ;; regardless of the header-line face. | 710 ;; they work regardless of the header-line face. |
| 711 (while (string-match "[ \t]+" header pos) | 711 (while (string-match "[ \t\n]+" header pos) |
| 712 (setq pos (match-end 0)) | 712 (setq pos (match-end 0)) |
| 713 (put-text-property (match-beginning 0) pos 'display | 713 (put-text-property (match-beginning 0) pos 'display |
| 714 ;; Assume fixed-size chars in the buffer. | 714 ;; Assume fixed-size chars in the buffer. |
| 715 (list 'space :align-to pos) | 715 (list 'space :align-to pos) |
| 716 header))) | 716 header))) |
| 724 (with-current-buffer (get-buffer-create "*Buffer List*") | 724 (with-current-buffer (get-buffer-create "*Buffer List*") |
| 725 (setq buffer-read-only nil) | 725 (setq buffer-read-only nil) |
| 726 (erase-buffer) | 726 (erase-buffer) |
| 727 (setq standard-output (current-buffer)) | 727 (setq standard-output (current-buffer)) |
| 728 (unless Buffer-menu-use-header-line | 728 (unless Buffer-menu-use-header-line |
| 729 ;; Use U+2014 (EM DASH) to underline if possible, else U+002D (HYPHEN-MINUS) | |
| 729 (let ((underline (if (char-displayable-p ?—) ?— ?-))) | 730 (let ((underline (if (char-displayable-p ?—) ?— ?-))) |
| 730 (insert header | 731 (insert header |
| 731 (apply 'string | 732 (apply 'string |
| 732 (mapcar (lambda (c) | 733 (mapcar (lambda (c) |
| 733 (if (memq c '(?\n ?\s)) c underline)) | 734 (if (memq c '(?\n ?\s)) c underline)) |