[elpa] externals/dired-duplicates 0dc7295626 03/57: Handle case when no duplicate files found

[ELPA Syncer]

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

    Handle case when no duplicate files found
---
 find-dupes-dired.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/find-dupes-dired.el b/find-dupes-dired.el
index bf654e365f..246bef1a8b 100644
--- a/find-dupes-dired.el
+++ b/find-dupes-dired.el
@@ -95,12 +95,15 @@ and show them in a dired buffer."
                          nil
                          t)))
     (message "Finding duplicate files in %s..." truncated-dirs)
-    (find-dupes--ensure-separator-file)
-    (dired (cons "/" (find-dupes--generate-dired-list directories)))
-    (setq-local find-dupes-directories directories)
-    (setq-local revert-buffer-function 'find-dupes-revert-function)
-    (find-dupes--remove-separator-file)
-    (message "Finding duplicate files in %s completed." truncated-dirs)))
+    (if-let ((results (find-dupes--generate-dired-list directories)))
+        (progn
+          (message "Finding duplicate files in %s completed." truncated-dirs)
+          (find-dupes--ensure-separator-file)
+          (dired (cons "/" results))
+          (setq-local find-dupes-directories directories)
+          (setq-local revert-buffer-function 'find-dupes-revert-function)
+          (find-dupes--remove-separator-file))
+      (message "No duplicate files found in %s." truncated-dirs))))
 
 ;;;; Tests
 ;; (find-dupes-checksum-file "~/tmp/my-file")