[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)))))