Remove duplication of refile target specification for current buffer
This commit is contained in:
parent
77f2dfc0eb
commit
56b1de2844
|
@ -682,13 +682,12 @@ linking to any item."
|
||||||
(find-file-noselect db/org-default-org-file))))
|
(find-file-noselect db/org-default-org-file))))
|
||||||
(when (null default-buffer)
|
(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"))
|
(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
|
(let* ((org-refile-targets (append (and arg
|
||||||
`((org-agenda-files :maxlevel . 9)
|
`((org-agenda-files :maxlevel . 9)
|
||||||
(,(cl-remove-if-not
|
(,(cl-remove-if-not #'stringp
|
||||||
#'stringp org-agenda-text-search-extra-files)
|
org-agenda-text-search-extra-files)
|
||||||
:maxlevel . 9)
|
:maxlevel . 9)))
|
||||||
(nil :maxlevel . 9))
|
'((nil :maxlevel . 9))))
|
||||||
'((nil :maxlevel . 9))))
|
|
||||||
(target-pointer (org-refile-get-location nil default-buffer))
|
(target-pointer (org-refile-get-location nil default-buffer))
|
||||||
(pom (nth 3 target-pointer)))
|
(pom (nth 3 target-pointer)))
|
||||||
(cond
|
(cond
|
||||||
|
|
Loading…
Reference in New Issue