From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Call org-reveal after archiving Date: Wed, 14 Jan 2009 07:55:53 +0100 Message-ID: <0589AFE4-FA50-487E-8CF5-45B6D2603C82@uva.nl> References: <878wpe3g8h.fsf@gollum.intra.norang.ca> Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LMzfU-00079n-Dg for emacs-orgmode@gnu.org; Wed, 14 Jan 2009 01:56:00 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LMzfT-00079I-Ky for emacs-orgmode@gnu.org; Wed, 14 Jan 2009 01:55:59 -0500 Received: from [199.232.76.173] (port=50900 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LMzfT-000799-Gw for emacs-orgmode@gnu.org; Wed, 14 Jan 2009 01:55:59 -0500 Received: from fg-out-1718.google.com ([72.14.220.158]:32372) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LMzfS-00068R-Uc for emacs-orgmode@gnu.org; Wed, 14 Jan 2009 01:55:59 -0500 Received: by fg-out-1718.google.com with SMTP id l26so212678fgb.30 for ; Tue, 13 Jan 2009 22:55:57 -0800 (PST) In-Reply-To: <878wpe3g8h.fsf@gollum.intra.norang.ca> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bernt Hansen Cc: emacs-orgmode@gnu.org Thanks. - Carsten On Jan 14, 2009, at 1:04 AM, Bernt Hansen wrote: > Sometimes archiving a task displays the next task heading after ... > at the > end of a folded task. This keeps the next task the cursor is on > starting > in column 1 which feels more natural. > --- > Carsten: This is also available on my 'for-carsten' branch. > > lisp/org-archive.el | 6 ++++-- > 1 files changed, 4 insertions(+), 2 deletions(-) > > diff --git a/lisp/org-archive.el b/lisp/org-archive.el > index d37f843..6ae6743 100644 > --- a/lisp/org-archive.el > +++ b/lisp/org-archive.el > @@ -306,7 +306,8 @@ this heading." > (message "Subtree archived %s" > (if (eq this-buffer buffer) > (concat "under heading: " heading) > - (concat "in file: " (abbreviate-file-name afile))))))) > + (concat "in file: " (abbreviate-file-name afile)))))) > + (org-reveal)) > > (defun org-archive-to-archive-sibling () > "Archive the current heading by moving it under the archive sibling. > @@ -357,7 +358,8 @@ sibling does not exist, it will be created at > the end of the subtree." > (outline-up-heading 1 t) > (hide-subtree) > (org-cycle-show-empty-lines 'folded) > - (goto-char pos)))) > + (goto-char pos))) > + (org-reveal)) > > (defun org-archive-all-done (&optional tag) > "Archive sublevels of the current tree without open TODO items. > -- > 1.6.1.28.gc32f76 > > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode