branch: elpa/helm
commit e82a25e9007ed8d13723613dc69114346879e04b
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Prevent asking for killing buffer in persistent file deletion
after answering "n".
---
helm-files.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 66709a107db..809256fc6bd 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6356,14 +6356,15 @@ When a prefix arg is given, meaning of
(let* ((marked (helm-marked-candidates))
(trash (helm-ff--delete-by-moving-to-trash (car marked)))
(old--allow-recursive-deletes helm-ff-allow-recursive-deletes)
- (buffers (cl-loop for f in marked
- append (helm-file-buffers f))))
+ (buffers '()))
(unwind-protect
(progn
(helm-read-answer-dolist-with-action
"Really %s file `%s'"
marked
- (lambda (file) (helm-ff--quick-delete-action file trash))
+ (lambda (file)
+ (helm-ff--quick-delete-action file trash)
+ (setq buffers (append (helm-file-buffers file))))
(list (if trash "Trash" "Delete") #'abbreviate-file-name))
(when buffers
(helm-read-answer-dolist-with-action
