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

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

[nongnu] elpa/helm bf82eb5f7b 2/2: Fix error handling when trashing file


From: ELPA Syncer
Subject: [nongnu] elpa/helm bf82eb5f7b 2/2: Fix error handling when trashing file already trashed
Date: Tue, 26 Dec 2023 03:59:42 -0500 (EST)

branch: elpa/helm
commit bf82eb5f7bf092b2407023824cf871d88b01ab25
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix error handling when trashing file already trashed
---
 helm-files.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 866d6a2405..85d083c043 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5866,7 +5866,7 @@ Optional arg TRASH-ALIST should be an alist as what
     (let ((trash-files-dir (helm-trash-directory)))
       (cl-loop for (_bn . fn) in (or trash-alist
                                      (helm-ff-trash-list trash-files-dir))
-               thereis (file-equal-p file fn)))))
+               thereis (and (file-equal-p file fn) file)))))
 
 (defun helm-ff-quick-delete (_candidate)
   "Delete file CANDIDATE without quitting.
@@ -6141,9 +6141,7 @@ directories are always deleted with no warnings."
                              (setq result (1+ result))))
                   (error (with-temp-file ,helm-ff-delete-log-file
                            (insert (format-time-string "%x:%H:%M:%S\n"))
-                           (insert (format "%s:%s\n"
-                                           (car err)
-                                           (mapconcat 'identity (cdr err) " 
")))))))))
+                           (insert (format "%S\n" err))))))))
          callback)
         (helm-ff--delete-async-modeline-mode 1)))))
 



reply via email to

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