mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 15:10:42 +00:00
Code Releases Activity

Rebase: Add tree name to prompt

Browse source 
* 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

12
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
(let (heading-text)
(save-excursion (save-excursion
(unless goto (org-back-to-heading t)) (unless goto
(org-back-to-heading t)
(setq heading-text
(nth 4 (org-heading-components))))
(org-refile-get-location (org-refile-get-location
(cond (goto "Goto") (cond (goto "Goto")
(regionp "Refile region to") (regionp "Refile region to")
(t "Refile subtree to")) default-buffer (t (concat "Refile subtree \""
heading-text "\" to")))
default-buffer
org-refile-allow-creating-parent-nodes org-refile-allow-creating-parent-nodes
goto))))) 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))