From cabf88eea5014149d9aabecc9a80cc853fd3b961 Mon Sep 17 00:00:00 2001 From: Ahmed Shariff Date: Mon, 19 Jul 2021 00:19:52 -0500 Subject: [PATCH] removing duplcates when expanding buffers-files --- org-ql-view.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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."