613 |
" " |
" " |
614 |
(Buffer-menu-make-sort-button "Mode" 4) mode-end |
(Buffer-menu-make-sort-button "Mode" 4) mode-end |
615 |
(Buffer-menu-make-sort-button "File" 5) "\n")) |
(Buffer-menu-make-sort-button "File" 5) "\n")) |
616 |
list desired-point name file) |
list desired-point name mode file) |
617 |
(when Buffer-menu-use-header-line |
(when Buffer-menu-use-header-line |
618 |
(let ((pos 0)) |
(let ((pos 0)) |
619 |
;; Turn spaces in the header into stretch specs so they work |
;; Turn spaces in the header into stretch specs so they work |
638 |
(mapcar |
(mapcar |
639 |
(lambda (buffer) |
(lambda (buffer) |
640 |
(with-current-buffer buffer |
(with-current-buffer buffer |
641 |
(setq name (buffer-name) |
(save-window-excursion |
642 |
file (buffer-file-name)) |
(setq name (buffer-name) |
643 |
|
mode (progn |
644 |
|
(set-window-buffer (selected-window) buffer) |
645 |
|
(concat (format-mode-line mode-name) |
646 |
|
(if mode-line-process |
647 |
|
(format-mode-line mode-line-process)))) |
648 |
|
file (buffer-file-name))) |
649 |
(cond |
(cond |
650 |
;; Don't mention internal buffers. |
;; Don't mention internal buffers. |
651 |
((and (string= (substring name 0 1) " ") (null file))) |
((and (string= (substring name 0 1) " ") (null file))) |
671 |
?% ? ) |
?% ? ) |
672 |
;; Identify modified buffers. |
;; Identify modified buffers. |
673 |
(if (buffer-modified-p) ?* ? )) |
(if (buffer-modified-p) ?* ? )) |
674 |
name (buffer-size) mode-name file))))) |
name (buffer-size) mode file))))) |
675 |
(buffer-list)))) |
(buffer-list)))) |
676 |
(dolist (buffer |
(dolist (buffer |
677 |
(if Buffer-menu-sort-column |
(if Buffer-menu-sort-column |