ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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))) (marker-position org-clock-hd-marker)))
(setq goto nil))) (setq goto nil)))
(setq it (or rfloc (setq it (or rfloc
(save-excursion (let (heading-text)
(unless goto (org-back-to-heading t)) (save-excursion
(org-refile-get-location (unless goto
(cond (goto "Goto") (org-back-to-heading t)
(regionp "Refile region to") (setq heading-text
(t "Refile subtree to")) default-buffer (nth 4 (org-heading-components))))
org-refile-allow-creating-parent-nodes (org-refile-get-location
goto))))) (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) (setq file (nth 1 it)
re (nth 2 it) re (nth 2 it)
pos (nth 3 it)) pos (nth 3 it))