Re: M-x compile should tell its status (a little bit better)..

[Stephan Stahl]

Hi Kevin.

Kevin Rodgers <address@hidden> writes:

> I think a better change would be to include mode-line-process in the
> *Buffer List* buffer:
> 
> 
> 2004-04-27  Kevin Rodgers  <address@hidden>
> 
>       * buff-menu.el (list-buffers-noselect): Append the buffer's
>         process status to its mode name.

I tried to "port" your change to cvs emacs. I really like this
addition so maybe someone wants to include it in cvs emacs.

diff -c buff-menu.el.\~1.66.\~ buff-menu.el
*** buff-menu.el.~1.66.~        Thu Apr  1 03:23:36 2004
--- buff-menu.el        Sun Jul 11 03:37:11 2004
***************
*** 613,619 ****
                         "  "
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
!        list desired-point name file)
      (when Buffer-menu-use-header-line
        (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
--- 613,619 ----
                         "  "
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
!        list desired-point name process mode file)
      (when Buffer-menu-use-header-line
        (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
***************
*** 639,645 ****
                   (lambda (buffer)
                     (with-current-buffer buffer
                       (setq name (buffer-name)
!                            file (buffer-file-name))
                       (cond
                        ;; Don't mention internal buffers.
                        ((and (string= (substring name 0 1) " ") (null file)))
--- 639,657 ----
                   (lambda (buffer)
                     (with-current-buffer buffer
                       (setq name (buffer-name)
!                            process (get-buffer-process buffer)
!                            mode (concat mode-name
!                                         ;; is there a way to convert
!                                         ;; an arbitrary mode-line-format
!                                         ;; element to a string?
!                                         (cond ((stringp mode-line-process)
!                                                mode-line-process)
!                                               (process ; emulate (":%s")
!                                                (concat ":"
!                                                        (symbol-name
!                                                         (process-status
!                                                          process))))))
!                      file (buffer-file-name))
                       (cond
                        ;; Don't mention internal buffers.
                        ((and (string= (substring name 0 1) " ") (null file)))
***************
*** 665,671 ****
                                           ?% ? )
                                       ;; Identify modified buffers.
                                       (if (buffer-modified-p) ?* ? ))
!                              name (buffer-size) mode-name file)))))
                   (buffer-list))))
        (dolist (buffer
               (if Buffer-menu-sort-column
--- 677,683 ----
                                           ?% ? )
                                       ;; Identify modified buffers.
                                       (if (buffer-modified-p) ?* ? ))
!                              name (buffer-size) mode file)))))
                   (buffer-list))))
        (dolist (buffer
               (if Buffer-menu-sort-column

-- 
Stephan Stahl