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

org.el: Use the current file name as the default target when there is no refile history

Browse source 
* org.el (org-refile-get-location): Use the current file name
as the default target when there is no refile history.
This commit is contained in:
Bastien Guerry 2012-09-23 10:04:29 +02:00
parent 1fea5530e3
commit f19af99d2a
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/org.el
View file

@ -11114,11 +11114,7 @@ this is used for the GOTO interface."
(org-refile-get-targets default-buffer excluded-entries)))
(unless org-refile-target-table
(error "No refile targets"))
(let* ((prompt (concat prompt
(and (car org-refile-history)
(concat " (default " (car org-refile-history) ")"))
": "))
(cbuf (current-buffer))
(let* ((cbuf (current-buffer))
(partial-completion-mode nil)
(cfn (buffer-file-name (buffer-base-buffer cbuf)))
(cfunc (if (and org-refile-use-outline-path
@ -11126,6 +11122,7 @@ this is used for the GOTO interface."
'org-olpath-completing-read
'org-icompleting-read))
(extra (if org-refile-use-outline-path "/" ""))
(cbnex (concat (buffer-name) extra))
(filename (and cfn (expand-file-name cfn)))
(tbl (mapcar
(lambda (x)
@ -11138,10 +11135,16 @@ this is used for the GOTO interface."
(cons (concat (car x) extra) (cdr x))))
org-refile-target-table))
(completion-ignore-case t)
cdef
(prompt (concat prompt
(or (and (car org-refile-history)
(concat " (default " (car org-refile-history) ")"))
(and (assoc cbnex tbl) (setq cdef cbnex)
(concat " (default " cbnex ")"))) ": "))
pa answ parent-target child parent old-hist)
(setq old-hist org-refile-history)
(setq answ (funcall cfunc prompt tbl nil (not new-nodes)
nil 'org-refile-history (car org-refile-history)))
nil 'org-refile-history (or cdef (car org-refile-history))))
(setq pa (or (assoc answ tbl) (assoc (concat answ "/") tbl)))
(org-refile-check-position pa)
(if pa