Make sure there are no duplicates in location candidates
This commit is contained in:
parent
e50bae5c6b
commit
1f30ab8590
@ -1918,11 +1918,13 @@ the variables `org-agenda-files',
|
|||||||
org-agenda-files)))
|
org-agenda-files)))
|
||||||
|
|
||||||
(scope (cond (use-all-org-files
|
(scope (cond (use-all-org-files
|
||||||
(append (unless current-buffer-is-in-org-agenda-files? ; avoid duplicate entries
|
(->> (append (unless current-buffer-is-in-org-agenda-files? ; avoid duplicate entries
|
||||||
(list (buffer-file-name default-buffer)))
|
(list (buffer-file-name default-buffer)))
|
||||||
(org-agenda-files)
|
(org-agenda-files)
|
||||||
(cl-remove-if-not #'stringp
|
(cl-remove-if-not #'stringp
|
||||||
org-agenda-text-search-extra-files)))
|
org-agenda-text-search-extra-files))
|
||||||
|
(-map #'file-truename)
|
||||||
|
(-uniq)))
|
||||||
(current-buffer-is-in-org-agenda-files?
|
(current-buffer-is-in-org-agenda-files?
|
||||||
(org-agenda-files))
|
(org-agenda-files))
|
||||||
(t
|
(t
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user