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

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

Hi Richard. (I've CC'ed emacs-devel again because of this possible bug..)

I said:

> Here is a new patch. With the funtion you suggested it is much simpler.
> diff -c buff-menu.el.\~1.66.\~ buff-menu.el
> *** buff-menu.el.\~1.66.\~ Mon Jul 12 11:01:15 2004
> --- buff-menu.el Mon Jul 12 11:08:58 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 mode file)
>       (when Buffer-menu-use-header-line
>         (let ((pos 0))
>   	;; Turn spaces in the header into stretch specs so they work
> ***************
> *** 639,644 ****
> --- 639,647 ----
>   		   (lambda (buffer)
>   		     (with-current-buffer buffer
>   		       (setq name (buffer-name)
> + 			     mode (concat mode-name
> + 					  (if mode-line-process
> + 					      (format-mode-line mode-line-process)))
>   			     file (buffer-file-name))
>   		       (cond
>   			;; Don't mention internal buffers.
> ***************
> *** 665,671 ****
>   					   ?% ? )
>   				       ;; Identify modified buffers.
>   				       (if (buffer-modified-p) ?* ? ))
> ! 			       name (buffer-size) mode-name file)))))
>   		   (buffer-list))))
>         (dolist (buffer
>   	       (if Buffer-menu-sort-column
> --- 668,674 ----
>   					   ?% ? )
>   				       ;; Identify modified buffers.
>   				       (if (buffer-modified-p) ?* ? ))
> ! 			       name (buffer-size) mode file)))))
>   		   (buffer-list))))
>         (dolist (buffer
>   	       (if Buffer-menu-sort-column

It does however not work correctly.. I suspect format-mode-line to be guilty but have
not yet looked at the c code..

format-mode-line returns different things depending on the buffer it was called from.

With this example the bug can be seen to.

emacs -q --no-site-init
M-x shell
M-; (with-current-buffer (get-buffer "*shell*")
  (concat mode-name
	  (if mode-line-process
	      (format-mode-line mode-line-process))))
=> "Shell:run"

C-x C-b <RET>   (you should be in *scratch* now)
M-; (with-current-buffer (get-buffer "*shell*")
  (concat mode-name
	  (if mode-line-process
	      (format-mode-line mode-line-process))))
=> "Shell:no process"

Maybe someone can help me with this??

Stephan
-- 
Stephan Stahl