From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.devel Subject: Re: M-x compile should tell its status (a little bit better).. Date: Tue, 27 Apr 2004 10:43:39 -0600 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <408E8DBB.9050409@yahoo.com> References: <24608.217.194.34.123.1082528157.squirrel@wwws.franken.de> <40895A13.4020300@yahoo.com> <87oepiqsb9.fsf@eos.franken.de> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1083086984 1553 80.91.224.253 (27 Apr 2004 17:29:44 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 27 Apr 2004 17:29:44 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Tue Apr 27 19:29:38 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BIWOn-0000tk-00 for ; Tue, 27 Apr 2004 19:29:37 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1BIWOn-0002Ba-00 for ; Tue, 27 Apr 2004 19:29:37 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BIW5j-000714-5z for emacs-devel@quimby.gnus.org; Tue, 27 Apr 2004 13:09:55 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1BIW0d-0005gp-6c for emacs-devel@gnu.org; Tue, 27 Apr 2004 13:04:39 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1BIVwZ-0004Lj-5p for emacs-devel@gnu.org; Tue, 27 Apr 2004 13:00:58 -0400 Original-Received: from [80.91.224.249] (helo=main.gmane.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1BIVfy-00010k-QN for emacs-devel@gnu.org; Tue, 27 Apr 2004 12:43:18 -0400 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1BIVfy-00021M-00 for ; Tue, 27 Apr 2004 18:43:18 +0200 Original-Received: from 170.207.51.80 ([170.207.51.80]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Apr 2004 18:43:18 +0200 Original-Received: from ihs_4664 by 170.207.51.80 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Apr 2004 18:43:18 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: emacs-devel@gnu.org Original-Lines: 68 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 170.207.51.80 User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 X-Accept-Language: en-us X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:22255 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:22255 Stephan Stahl wrote: > Kevin Rodgers writes: >>Richard Stallman wrote: >>>Could you say more precisely what change you have in mind in the >>>mode line contents? >>> >>I think the idea is not to change the mode line, but to change the >>mode name so that the status is apparent from `M-x list-buffers'. I >>think the following provides the desired effect, but it's just for >>illustration: > > Yes that was my idea. I hope my example in an earlier mail was also > helpful to understand what i had in mind. > > Do you think such a change would be good? And which other modes could > benefit from such a visual feedback? Maybe all modes that use an > (longrunning) inferior process.. I think a better change would be to include mode-line-process in the *Buffer List* buffer: 2004-04-27 Kevin Rodgers * buff-menu.el (list-buffers-noselect): Append the buffer's process status to its mode name. *** emacs-21.3/lisp/buff-menu.el.orig Wed Aug 29 08:53:31 2001 --- emacs-21.3/lisp/buff-menu.el Tue Apr 27 10:38:25 2004 *************** *** 503,512 **** this-buffer-read-only (this-buffer-size (buffer-size buffer)) this-buffer-mode-name this-buffer-directory) (with-current-buffer buffer ! (setq this-buffer-read-only buffer-read-only ! this-buffer-mode-name mode-name) (unless file ;; No visited file. Check local value of ;; list-buffers-directory. --- 503,523 ---- this-buffer-read-only (this-buffer-size (buffer-size buffer)) this-buffer-mode-name + (this-buffer-process (get-buffer-process buffer)) this-buffer-directory) (with-current-buffer buffer ! (setq this-buffer-read-only buffer-read-only) ! (setq this-buffer-mode-name ! (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) ! (this-buffer-process ; emulate (":%s") ! (concat ":" ! (symbol-name ! (process-status ! this-buffer-process))))))) (unless file ;; No visited file. Check local value of ;; list-buffers-directory. -- Kevin Rodgers