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)
This commit is contained in:
Bernt Hansen 2009-08-20 15:36:00 -04:00
parent babb63a27f
commit 9ec5529af0
1 changed files with 11 additions and 11 deletions

View File

@ -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)