[elpa] externals/dired-duplicates b59cac879e 05/13: Expand and deduplicate dir names before starting comparison

[ELPA Syncer]

branch: externals/dired-duplicates
commit b59cac879e5af36fc8098225c192253f45c2ea1d
Author: Harald Judt <h.judt@gmx.at>
Commit: Harald Judt <h.judt@gmx.at>

    Expand and deduplicate dir names before starting comparison
    
    Signed-off-by: Harald Judt <h.judt@gmx.at>
---
 dired-duplicates.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/dired-duplicates.el b/dired-duplicates.el
index 01c0fcbccc..e444347ee4 100644
--- a/dired-duplicates.el
+++ b/dired-duplicates.el
@@ -333,7 +333,10 @@ The results will be shown in a Dired buffer."
   (interactive (list (dired-duplicates--prompt-for-directories)))
   (unless directories
     (user-error "Please specify one or more directories to search in"))
-  (let* ((directories (if (listp directories) directories (list directories))))
+  (let* ((directories (if (listp directories)
+                          (cl-remove-duplicates (mapcar #'expand-file-name 
directories)
+                                                :test #'string=)
+                        (list directories))))
     (message "Finding duplicate files in %s..." (string-join directories ", "))
     (if-let ((default-directory "/")
              (results (dired-duplicates--generate-grouped-results 
directories)))