From 45b0d23b0c3c9e4f488658a2102685a93c1ee842 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 4 Jan 2014 15:05:01 +0100 Subject: [PATCH] Fix creation of parent nodes when refiling. * org.el (org-refile-get-location): Check for a refile position when the position is not nil, otherwise allow to create the parent node if the user requests it. Thanks to Li Zhuo for reporting this bug and for providing a preliminary patch. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 53689526a..efd378e50 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11705,9 +11705,9 @@ this is used for the GOTO interface." (setq answ (funcall cfunc prompt tbl nil (not new-nodes) 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 (progn + (org-refile-check-position pa) (when (or (not org-refile-history) (not (eq old-hist org-refile-history)) (not (equal (car pa) (car org-refile-history)))) -- 2.11.4.GIT