From 56b1de28449652e26cb98bf3e3e816913d1adf67 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 16 Apr 2021 17:34:40 +0200 Subject: [PATCH] Remove duplication of refile target specification for current buffer --- site-lisp/db-org.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 10d42c3..619f503 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -682,13 +682,12 @@ linking to any item." (find-file-noselect db/org-default-org-file)))) (when (null default-buffer) (user-error "Current buffer is not associated with a file and `db/org-default-org-file' does not exist; nothing to search through")) - (let* ((org-refile-targets (if arg - `((org-agenda-files :maxlevel . 9) - (,(cl-remove-if-not - #'stringp org-agenda-text-search-extra-files) - :maxlevel . 9) - (nil :maxlevel . 9)) - '((nil :maxlevel . 9)))) + (let* ((org-refile-targets (append (and arg + `((org-agenda-files :maxlevel . 9) + (,(cl-remove-if-not #'stringp + org-agenda-text-search-extra-files) + :maxlevel . 9))) + '((nil :maxlevel . 9)))) (target-pointer (org-refile-get-location nil default-buffer)) (pom (nth 3 target-pointer))) (cond