(list-buffers-noselect): Call format-mode-line with the buffer as argument.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 1ccaab1c6a3c9ff0ced5a6e0a7037373f0992cd3..33a8c3ec3f552dae02a754be764ecc2feff114c2 100644 (file)
--- 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)))