diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-09-09 01:34:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-09-09 01:34:59 +0000 |
| commit | e8e8c0c7b70441f7238e6b3111494729eb56d786 (patch) | |
| tree | cb419d5d51f28c24c6e841725ce38153b7471f50 /lisp/buff-menu.el | |
| parent | 5670531ed8ded2708eeeffaf37aaa7cdb0015223 (diff) | |
| download | emacs-e8e8c0c7b70441f7238e6b3111494729eb56d786.tar.gz | |
(list-buffers-noselect): Call format-mode-line with the buffer as argument.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 1ccaab1c6a3..33a8c3ec3f5 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -638,14 +638,11 @@ For more information, see the function `buffer-menu'." (mapcar (lambda (buffer) (with-current-buffer buffer - (save-window-excursion - (setq name (buffer-name) - mode (progn - (set-window-buffer (selected-window) buffer) - (concat (format-mode-line mode-name) - (if mode-line-process - (format-mode-line mode-line-process)))) - file (buffer-file-name))) + (setq name (buffer-name) + mode (concat (format-mode-line mode-name nil nil buffer) + (if mode-line-process + (format-mode-line mode-line-process nil nil buffer))) + file (buffer-file-name)) (cond ;; Don't mention internal buffers. ((and (string= (substring name 0 1) " ") (null file))) |