mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-29 11:02:33 +00:00
Code

Revert "Refactor refiling code"

Browse Source 
This reverts commit 84e8434337.
This commit is contained in:
Carsten Dominik 2010-03-29 14:22:46 +02:00
parent a3f3efe82d
commit 60755599a0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-agenda.el
View File

@ -6215,15 +6215,18 @@ If this information is not given, the function uses the tree at point."
(let* ((marker (or (org-get-at-bol 'org-hd-marker) (let* ((marker (or (org-get-at-bol 'org-hd-marker)
(org-agenda-error))) (org-agenda-error)))
(buffer (marker-buffer marker)) (buffer (marker-buffer marker))
(pos (marker-position marker))) (pos (marker-position marker))
(rfloc (or rfloc
(org-refile-get-location
(if goto "Goto: " "Refile to: ") buffer
org-refile-allow-creating-parent-nodes))))
(with-current-buffer buffer (with-current-buffer buffer
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen) (widen)
(goto-char marker) (goto-char marker)
(org-refile goto buffer rfloc) (org-remove-subtree-entries-from-agenda)
(with-current-buffer "*Org Agenda*" (org-refile goto buffer rfloc)))))))
(org-agenda-redo))))))))
(defun org-agenda-open-link (&optional arg) (defun org-agenda-open-link (&optional arg)
"Follow the link in the current line, if any. "Follow the link in the current line, if any.