forked from mirrors/org-mode
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:
parent
babb63a27f
commit
9ec5529af0
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue