(list-buffers-noselect): Append the buffer's process status to its mode name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bd1b75edf3945c6c9634f5b626f821c4e3b9bef..6b2d3eb4145f29019f0158e1408fead1e8e82255 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-16  Stephan Stahl  <stahl@eos.franken.de>  (tiny change)
+
+       * buff-menu.el (list-buffers-noselect): Append the buffer's
+       process status to its mode name.
+
 2004-07-16  Kim F. Storm  <storm@cua.dk>
 
        * simple.el (inhibit-mark-movement): New defvar.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index da1c8ed586ee4dd2b3bd16855bc2e266bcd974d4..1ccaab1c6a3c9ff0ced5a6e0a7037373f0992cd3 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -613,7 +613,7 @@ For more information, see the function `buffer-menu'."
                         "  "
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
-        list desired-point name file)
+        list desired-point name mode file)
     (when Buffer-menu-use-header-line
       (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
@@ -638,8 +638,14 @@ For more information, see the function `buffer-menu'."
                  (mapcar
                   (lambda (buffer)
                     (with-current-buffer buffer
-                      (setq name (buffer-name)
-                            file (buffer-file-name))
+                      (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)))
                       (cond
                        ;; Don't mention internal buffers.
                        ((and (string= (substring name 0 1) " ") (null file)))
@@ -665,7 +671,7 @@ For more information, see the function `buffer-menu'."
                                           ?% ? )
                                       ;; Identify modified buffers.
                                       (if (buffer-modified-p) ?* ? ))
-                              name (buffer-size) mode-name file)))))
+                              name (buffer-size) mode file)))))
                   (buffer-list))))
       (dolist (buffer
               (if Buffer-menu-sort-column