emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dired-duplicates 9335c22d88 2/7: Do not truncate direct


From: ELPA Syncer
Subject: [elpa] externals/dired-duplicates 9335c22d88 2/7: Do not truncate directory names in messages
Date: Thu, 9 Nov 2023 09:57:41 -0500 (EST)

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

    Do not truncate directory names in messages
    
    They are also printed to the *Messages* buffer and should not be truncated
    there, and actually there is no need to truncate them. Some operations might
    take a while and it is better to let the user know that something is still
    going on.
    
    Signed-off-by: Harald Judt <h.judt@gmx.at>
---
 dired-duplicates.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/dired-duplicates.el b/dired-duplicates.el
index 5d206e7bce..82b5aa69ce 100644
--- a/dired-duplicates.el
+++ b/dired-duplicates.el
@@ -295,9 +295,8 @@ The results will be shown in a Dired buffer."
                                                default-directory)))
   (unless directories
     (user-error "Specify one or more directories to search in"))
-  (let* ((directories (if (listp directories) directories (list directories)))
-         (truncated-dirs (truncate-string-to-width (string-join directories ", 
") 40 0 nil t)))
-    (message "Finding duplicate files in %s..." truncated-dirs)
+  (let* ((directories (if (listp directories) directories (list directories))))
+    (message "Finding duplicate files in %s..." (string-join directories ", "))
     (if-let ((default-directory "/")
              (results (dired-duplicates--generate-grouped-results 
directories)))
         (progn
@@ -308,7 +307,7 @@ The results will be shown in a Dired buffer."
           (setq-local dired-duplicates-directories directories)
           (setq-local revert-buffer-function 'dired-duplicates-dired-revert)
           (dired-duplicates--post-process-dired-buffer results))
-      (message "No duplicate files found in %s." truncated-dirs))))
+      (message "No duplicate files found."))))
 
 (provide 'dired-duplicates)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]