From 9ec5529af0e794b02b10645fa51cb53c7a53bc8e Mon Sep 17 00:00:00 2001 From: Bernt Hansen Date: Thu, 20 Aug 2009 15:36:00 -0400 Subject: [PATCH] Fix jumping to last refile location in agenda 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) --- lisp/org-agenda.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 073e66821..83e8dd673 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)