From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Re: [PATCH] Fix jumping to last refile location in agenda Date: Wed, 26 Aug 2009 09:53:09 -0400 Message-ID: <87zl9md6m2.fsf@gollum.intra.norang.ca> References: <1251217044-29401-1-git-send-email-bernt@norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MgIwE-0004UX-Nl for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 09:53:23 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MgIw8-0004TC-Ju for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 09:53:20 -0400 Received: from [199.232.76.173] (port=40531 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MgIw6-0004T5-4n for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 09:53:14 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:63236) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MgIw5-00021b-HF for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 09:53:13 -0400 In-Reply-To: (Carsten Dominik's message of "Wed\, 26 Aug 2009 06\:41\:30 +0200") 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: Carsten Dominik Cc: emacs-orgmode@gnu.org Argh. I think this commit breaks bulk refiling from the agenda. If I mark two entries (with m) and then B r and enter a location I get a Refile: prompt in the mini buffer. Sorry about that. -Bernt Carsten Dominik writes: > Applied, thanks. > > - Carsten > > On Aug 25, 2009, at 6:17 PM, Bernt Hansen wrote: > >> C-u C-u C-c C-w now goes to the last refile location in the agenda. >> This is the same behaviour as org-refile (when used in an org file) >> --- >> Carsten, >> >> This patch allows C-u C-u C-c C-w on any line in the agenda. The goto >> function (C-u C-c C-w) could possibly work the same way - now you need >> to put the point on a task first - it won't work on the date or the >> Day-agenda line. >> >> This patch is available at git://git.norang.ca/org-mode for-carsten. >> >> lisp/org-agenda.el | 22 +++++++++++----------- >> 1 files changed, 11 insertions(+), 11 deletions(-) >> >> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el >> index 073e668..83e8dd6 100644 >> --- a/lisp/org-agenda.el >> +++ b/lisp/org-agenda.el >> @@ -5475,14 +5475,17 @@ If this information is not given, the >> function uses the tree at point." >> (defun org-agenda-refile (&optional goto rfloc) >> "Refile the item at point." >> (interactive "P") >> - (let* ((marker (or (get-text-property (point) 'org-hd-marker) >> - (org-agenda-error))) >> - (buffer (marker-buffer marker)) >> - (pos (marker-position marker)) >> - (rfloc (or rfloc >> - (org-refile-get-location >> - (if goto "Goto: " "Refile to: ") buffer >> - org-refile-allow-creating-parent-nodes)))) >> + (if (equal goto '(16)) >> + (org-refile-goto-last-stored) >> + (let* ((marker (or (get-text-property (point) 'org-hd-marker) >> + (org-agenda-error))) >> + (buffer (marker-buffer marker)) >> + (pos (marker-position marker)) >> + (rfloc)) >> + (setq rfloc (or rfloc >> + (org-refile-get-location >> + (if goto "Goto: " "Refile to: ") buffer >> + org-refile-allow-creating-parent-nodes)))) >> (with-current-buffer buffer >> (save-excursion >> (save-restriction >> @@ -5491,9 +5494,6 @@ If this information is not given, the function >> uses the tree at point." >> (org-remove-subtree-entries-from-agenda) >> (org-refile goto buffer rfloc)))))) >> >> - >> - >> - >> (defun org-agenda-open-link () >> "Follow the link in the current line, if any." >> (interactive) >> -- >> 1.6.4 >> >> >> >> _______________________________________________ >> 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 > > > > _______________________________________________ > 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