Mercurial > emacs
comparison lisp/buff-menu.el @ 57030:ed12a363c849
(list-buffers-noselect): Call format-mode-line with the buffer as argument.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 09 Sep 2004 01:34:59 +0000 |
parents | bc9ffd7cc15c |
children | 716fe8f547c3 cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
57029:eacc7685bff6 | 57030:ed12a363c849 |
---|---|
636 (setq list | 636 (setq list |
637 (delq t | 637 (delq t |
638 (mapcar | 638 (mapcar |
639 (lambda (buffer) | 639 (lambda (buffer) |
640 (with-current-buffer buffer | 640 (with-current-buffer buffer |
641 (save-window-excursion | 641 (setq name (buffer-name) |
642 (setq name (buffer-name) | 642 mode (concat (format-mode-line mode-name nil nil buffer) |
643 mode (progn | 643 (if mode-line-process |
644 (set-window-buffer (selected-window) buffer) | 644 (format-mode-line mode-line-process nil nil buffer))) |
645 (concat (format-mode-line mode-name) | 645 file (buffer-file-name)) |
646 (if mode-line-process | |
647 (format-mode-line mode-line-process)))) | |
648 file (buffer-file-name))) | |
649 (cond | 646 (cond |
650 ;; Don't mention internal buffers. | 647 ;; Don't mention internal buffers. |
651 ((and (string= (substring name 0 1) " ") (null file))) | 648 ((and (string= (substring name 0 1) " ") (null file))) |
652 ;; Maybe don't mention buffers without files. | 649 ;; Maybe don't mention buffers without files. |
653 ((and files-only (not file))) | 650 ((and files-only (not file))) |