[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: M-x compile should tell its status (a little bit better)..
From: |
Stephan Stahl |
Subject: |
Re: M-x compile should tell its status (a little bit better).. |
Date: |
11 Jul 2004 03:43:50 +0200 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 |
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
- Re: M-x compile should tell its status (a little bit better)..,
Stephan Stahl <=
- Message not available
- Message not available
- Re: M-x compile should tell its status (a little bit better).., Stephan Stahl, 2004/07/12
- Re: M-x compile should tell its status (a little bit better).., Stefan Monnier, 2004/07/12
- Re: M-x compile should tell its status (a little bit better).., Richard Stallman, 2004/07/13
- Re: M-x compile should tell its status (a little bit better).., David Kastrup, 2004/07/13
- Re: M-x compile should tell its status (a little bit better).., Stephan Stahl, 2004/07/14
- Re: M-x compile should tell its status (a little bit better).., David Kastrup, 2004/07/14
- Re: M-x compile should tell its status (a little bit better).., Stephan Stahl, 2004/07/14
- Re: M-x compile should tell its status (a little bit better).., Kim F. Storm, 2004/07/14
- Re: M-x compile should tell its status (a little bit better).., Richard Stallman, 2004/07/15
- Re: M-x compile should tell its status (a little bit better).., Stefan, 2004/07/14