From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 9 Sep 2004 01:34:59 +0000 (+0000)
Subject: (list-buffers-noselect): Call format-mode-line with the buffer as argument.
X-Git-Tag: ttn-vms-21-2-B4~4979
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8e8c0c7b70441f7238e6b3111494729eb56d786;p=emacs.git

(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 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)))