diff --git a/org-ql-view.el b/org-ql-view.el index 97e2c5e..1faff2e 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -1091,10 +1091,11 @@ The counterpart to `org-ql-view--contract-buffers-files'." ((pred listp) (list _buffers-files)) ;; A single filename. ((pred stringp) (list _buffers-files))))) - (-mapcat #'process-buffers-files-elements - (remove nil (if (listp buffers-files) - buffers-files - (list buffer-files)))))) + (remove-duplicates (-mapcat #'process-buffers-files-elements + (remove nil (if (listp buffers-files) + buffers-files + (list buffer-files)))) + :test 'equalp))) (defun org-ql-view--complete-super-groups () "Return value for `org-ql-view-super-groups' using completion."