645 |
(let* ((old-buffer (current-buffer)) |
(let* ((old-buffer (current-buffer)) |
646 |
(standard-output standard-output) |
(standard-output standard-output) |
647 |
(mode-end (make-string (- Buffer-menu-mode-width 2) ? )) |
(mode-end (make-string (- Buffer-menu-mode-width 2) ? )) |
648 |
(header (concat " " (propertize "CRM " 'face 'fixed-pitch) |
(header (concat (propertize "CRM " 'face 'fixed-pitch) |
649 |
(Buffer-menu-buffer+size |
(Buffer-menu-buffer+size |
650 |
(Buffer-menu-make-sort-button "Buffer" 2) |
(Buffer-menu-make-sort-button "Buffer" 2) |
651 |
(Buffer-menu-make-sort-button "Size" 3)) |
(Buffer-menu-make-sort-button "Size" 3)) |
661 |
(setq pos (match-end 0)) |
(setq pos (match-end 0)) |
662 |
(put-text-property (match-beginning 0) pos 'display |
(put-text-property (match-beginning 0) pos 'display |
663 |
;; Assume fixed-size chars |
;; Assume fixed-size chars |
664 |
(list 'space :align-to (1- pos)) |
(list 'space :align-to pos) |
665 |
header)))) |
header)))) |
666 |
(with-current-buffer (get-buffer-create "*Buffer List*") |
(with-current-buffer (get-buffer-create "*Buffer List*") |
667 |
(setq buffer-read-only nil) |
(setq buffer-read-only nil) |
670 |
(unless Buffer-menu-use-header-line |
(unless Buffer-menu-use-header-line |
671 |
(insert header (propertize "---" 'face 'fixed-pitch) " ") |
(insert header (propertize "---" 'face 'fixed-pitch) " ") |
672 |
(insert (Buffer-menu-buffer+size "------" "----")) |
(insert (Buffer-menu-buffer+size "------" "----")) |
673 |
(insert " ----" mode-end "----\n") |
(insert " ----" mode-end "----\n")) |
|
(put-text-property 1 (point) 'intangible t)) |
|
674 |
(if buffer-list |
(if buffer-list |
675 |
(setq list buffer-list) |
(setq list buffer-list) |
676 |
;; Collect info for every buffer we're interested in. |
;; Collect info for every buffer we're interested in. |