From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Fix jumping to last refile location in agenda Date: Wed, 26 Aug 2009 06:41:30 +0200 Message-ID: References: <1251217044-29401-1-git-send-email-bernt@norang.ca> Mime-Version: 1.0 (Apple Message framework v936) 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 1MgAKL-0004gW-0h for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 00:41:41 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MgAKE-0004b2-VM for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 00:41:39 -0400 Received: from [199.232.76.173] (port=36382 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MgAKE-0004as-Rm for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 00:41:34 -0400 Received: from mail-ew0-f211.google.com ([209.85.219.211]:55543) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MgAKE-0000Yh-85 for emacs-orgmode@gnu.org; Wed, 26 Aug 2009 00:41:34 -0400 Received: by ewy7 with SMTP id 7so3912531ewy.31 for ; Tue, 25 Aug 2009 21:41:33 -0700 (PDT) In-Reply-To: <1251217044-29401-1-git-send-email-bernt@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 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