From 5a2fcef327ff463ed660dd594a6237df8d18d1a8 Mon Sep 17 00:00:00 2001 From: Markus Hauck Date: Mon, 7 Apr 2014 19:21:43 +0200 Subject: [PATCH] org.el (org-refile): Allow org-refile goto from everywhere * lisp/org-agenda.el (org-refile): Flip logic to allow instead of prohibit the use of `org-refile' with the goto flat from non org-mode buffers. In commit 49da67d the condition was changed from only `(unless goto ...)` to `(unless (and goto (listp arg)) ...)` where the `and` condition is only true for non-empty lists, so that calling `(org-refile t)` complains about not being inside an org-mode buffer. With this patch org-refile can be used (again) from anywhere when passed the goto flag to jump to the chosen task. TINYCHANGE --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index f8615a2..1705c5e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11675,7 +11675,7 @@ prefix argument (`C-u C-u C-u C-c C-w')." (setq it (or rfloc (let (heading-text) (save-excursion - (unless (and arg (listp arg)) + (unless (or arg (listp arg)) (org-back-to-heading t) (setq heading-text (replace-regexp-in-string @@ -11683,7 +11683,7 @@ prefix argument (`C-u C-u C-u C-c C-w')." "\\3" (nth 4 (org-heading-components))))) (org-refile-get-location - (cond ((and arg (listp arg)) "Goto") + (cond ((or arg (listp arg)) "Goto") (regionp (concat actionmsg " region to")) (t (concat actionmsg " subtree \"" heading-text "\" to"))) -- 1.8.3