638 |
(mapcar |
(mapcar |
639 |
(lambda (buffer) |
(lambda (buffer) |
640 |
(with-current-buffer buffer |
(with-current-buffer buffer |
641 |
(save-window-excursion |
(setq name (buffer-name) |
642 |
(setq name (buffer-name) |
mode (concat (format-mode-line mode-name nil nil buffer) |
643 |
mode (progn |
(if mode-line-process |
644 |
(set-window-buffer (selected-window) buffer) |
(format-mode-line mode-line-process nil nil buffer))) |
645 |
(concat (format-mode-line mode-name) |
file (buffer-file-name)) |
|
(if mode-line-process |
|
|
(format-mode-line mode-line-process)))) |
|
|
file (buffer-file-name))) |
|
646 |
(cond |
(cond |
647 |
;; Don't mention internal buffers. |
;; Don't mention internal buffers. |
648 |
((and (string= (substring name 0 1) " ") (null file))) |
((and (string= (substring name 0 1) " ") (null file))) |