tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Rebase: Add tree name to prompt 

* lisp/org.el (org-refile): Add tree name to prompt.
This commit is contained in:
Sébastien Vauban 2011-10-14 13:25:14 +00:00 committed by Carsten Dominik
parent 54d7df6774
commit 05ead2de3b
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/org.el
View File

@ -10481,14 +10481,20 @@ prefix argument (`C-u C-u C-u C-c C-w')."
(marker-position org-clock-hd-marker)))
(setq goto nil)))
(setq it (or rfloc
(save-excursion
(unless goto (org-back-to-heading t))
(org-refile-get-location
(cond (goto "Goto")
(regionp "Refile region to")
(t "Refile subtree to")) default-buffer
org-refile-allow-creating-parent-nodes
goto)))))
(let (heading-text)
(save-excursion
(unless goto
(org-back-to-heading t)
(setq heading-text
(nth 4 (org-heading-components))))
(org-refile-get-location
(cond (goto "Goto")
(regionp "Refile region to")
(t (concat "Refile subtree \""
heading-text "\" to")))
default-buffer
org-refile-allow-creating-parent-nodes
goto))))))
(setq file (nth 1 it)
re (nth 2 it)
pos (nth 3 it))