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

[Stephan Stahl <stahl@eos.franken.de>]

Hi Kevin.

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> I think a better change would be to include mode-line-process in the
> *Buffer List* buffer:
> 
> 
> 2004-04-27  Kevin Rodgers  <ihs_4664@yahoo.com>
> 
> 	* 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