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

Make org-refile interface for jumping to a target work before first heading

Browse source 
* lisp/org.el (org-refile-get-location): Ignore errors when
collection heading to be excluded.
This commit is contained in:
Carsten Dominik 2011-10-05 16:18:18 +02:00
parent ee3a68216b
commit 1790d6c073
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -10477,7 +10477,8 @@ prefix argument (`C-u C-u C-u C-c C-w')."
(cond (goto "Goto")
(regionp "Refile region to")
(t "Refile subtree to")) default-buffer
org-refile-allow-creating-parent-nodes)))))
org-refile-allow-creating-parent-nodes
goto)))))
(setq file (nth 1 it)
re (nth 2 it)
pos (nth 3 it))
@ -10556,16 +10557,20 @@ prefix argument (`C-u C-u C-u C-c C-w')."
(bookmark-jump "org-refile-last-stored")
(message "This is the location of the last refile"))
(defun org-refile-get-location (&optional prompt default-buffer new-nodes)
(defun org-refile-get-location (&optional prompt default-buffer new-nodes
no-exclude)
"Prompt the user for a refile location, using PROMPT.
PROMPT should not be suffixed with a colon and a space, because
this function appends the default value from
`org-refile-history' automatically, if that is not empty."
`org-refile-history' automatically, if that is not empty.
When NO-EXCLUDE is set, do not exclude headlines in the current subtree,
this is used for the GOTO interface."
(let ((org-refile-targets org-refile-targets)
(org-refile-use-outline-path org-refile-use-outline-path)
excluded-entries)
(when (and (eq major-mode 'org-mode)
(not org-refile-use-cache))
(not org-refile-use-cache)
(not no-exclude))
(org-map-tree
(lambda()
(setq excluded-entries