diff options
author | Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> | 2011-10-14 13:25:14 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-10-14 11:20:35 +0200 |
commit | 05ead2de3b32698409414f890116bc8985b2b732 (patch) | |
tree | 12ef55bbd8cc49b97c1a2f3dfc36c519f1e73b1b | |
parent | 54d7df67741cd2cf6cb760d576b57073531e5c26 (diff) | |
download | org-mode-05ead2de3b32698409414f890116bc8985b2b732.tar.gz |
Rebase: Add tree name to prompt
* lisp/org.el (org-refile): Add tree name to prompt.
-rw-r--r-- | lisp/org.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index b26e1a3..66c2507 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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)) |