[elpa] externals/dired-duplicates 4664aed213 46/57: Fix truncating directories when calling dired-duplicates non-interactively

[ELPA Syncer]

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

    Fix truncating directories when calling dired-duplicates non-interactively
---
 dired-duplicates.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/dired-duplicates.el b/dired-duplicates.el
index ae99ea8620..087cda8e93 100644
--- a/dired-duplicates.el
+++ b/dired-duplicates.el
@@ -215,7 +215,12 @@ The results will be shown in a Dired buffer."
                                                nil
                                                default-directory)))
   (let ((default-directory "/")
-        (truncated-dirs (truncate-string-to-width (string-join directories ", 
") 40 0 nil t)))
+        (truncated-dirs (truncate-string-to-width
+                         (string-join (if (listp directories)
+                                          directories
+                                        (list directories))
+                                      ", ")
+                         40 0 nil t)))
     (message "Finding duplicate files in %s..." truncated-dirs)
     (if-let ((results (dired-duplicates--generate-grouped-results 
directories)))
         (progn