From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Proced revert (Re: Dired auto-revert) Date: Fri, 04 Dec 2009 02:11:19 +0200 Organization: JURTA Message-ID: <87d42wf01h.fsf_-_@mail.jurta.org> References: <87hbv6gel6.fsf@gmail.com> <87iqfhbo6u.fsf@mail.jurta.org> <87iqfc2fy1.fsf_-_@mail.jurta.org> <87ab0m2dnt.fsf@mail.jurta.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1259886562 28910 80.91.229.12 (4 Dec 2009 00:29:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 4 Dec 2009 00:29:22 +0000 (UTC) Cc: emacs-devel@gnu.org To: Roland Winkler Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Dec 04 01:29:15 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1NGM2q-00074W-Cz for ged-emacs-devel@m.gmane.org; Fri, 04 Dec 2009 01:29:13 +0100 Original-Received: from localhost ([127.0.0.1]:60744 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NGM2p-0001xG-Ul for ged-emacs-devel@m.gmane.org; Thu, 03 Dec 2009 19:29:12 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NGM1Z-0001ND-Fh for emacs-devel@gnu.org; Thu, 03 Dec 2009 19:27:53 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NGM1U-0001Jj-NN for emacs-devel@gnu.org; Thu, 03 Dec 2009 19:27:52 -0500 Original-Received: from [199.232.76.173] (port=37638 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NGM1U-0001Jd-HG for emacs-devel@gnu.org; Thu, 03 Dec 2009 19:27:48 -0500 Original-Received: from smtp-out4.starman.ee ([85.253.0.6]:55400 helo=mx2.starman.ee) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NGM1T-0005I5-Dy for emacs-devel@gnu.org; Thu, 03 Dec 2009 19:27:48 -0500 X-Virus-Scanned: by Amavisd-New at mx2.starman.ee Original-Received: from mail.starman.ee (82.131.30.124.cable.starman.ee [82.131.30.124]) by mx2.starman.ee (Postfix) with ESMTP id 727183F40BC; Fri, 4 Dec 2009 02:27:34 +0200 (EET) In-Reply-To: <87ab0m2dnt.fsf@mail.jurta.org> (Juri Linkov's message of "Wed, 23 Sep 2009 12:05:14 +0300") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (x86_64-pc-linux-gnu) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:118219 Archived-At: After typing `M-x proced RET' I see a list of inexistent processes that were terminated long ago. That's because `M-x proced RET' brings up to display the old *Proced* buffer with obsolete process information. I think when someone sometimes wants to get the old *Proced* buffer, the right command to do this is `C-x b *Proced* RET'. But `M-x proced RET' should always display up-to-date process information. BTW, there is also a related problem. Typing `q' exits from Proced and hides the *Proced* buffer, but switches to *Marked Processes* where typing `q' has no effect. In Dired, the *Marked Files* buffer is always hidden because it has a space character at the beginning of its name " *Marked Files*". This patch also adds a space to the *Marked Processes* buffer name. Index: lisp/proced.el =================================================================== RCS file: /sources/emacs/emacs/lisp/proced.el,v retrieving revision 1.42 diff -u -r1.42 proced.el --- lisp/proced.el 12 Oct 2009 04:59:07 -0000 1.42 +++ lisp/proced.el 4 Dec 2009 00:11:12 -0000 @@ -682,9 +682,9 @@ (progn (display-buffer buffer) (with-current-buffer buffer - (run-hooks 'proced-post-display-hook))) + (proced-update t))) (pop-to-buffer buffer) - (run-hooks 'proced-post-display-hook) + (proced-update t) (message (substitute-command-keys "Type \\\\[quit-window] to quit, \\[proced-help] for help"))))) @@ -1711,7 +1711,7 @@ (line-end-position)))))) (unless signal ;; Display marked processes (code taken from `dired-mark-pop-up'). - (let ((bufname "*Marked Processes*") + (let ((bufname " *Marked Processes*") (header-line (substring-no-properties proced-header-line))) (with-current-buffer (get-buffer-create bufname) (setq truncate-lines t -- Juri Linkov http://www.jurta.org/emacs/