[elpa] externals/disk-usage f3c64a1 43/48: Prompt whether deleting or trashing and only revert if proceeding

[Stefan Monnier]

branch: externals/disk-usage
commit f3c64a12d81477bc7ee63abc2d08bb5fc04f8e43
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Prompt whether deleting or trashing and only revert if proceeding
---
 disk-usage.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index 8397cfb..6a0015b 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -406,12 +406,13 @@ Also see `disk-usage-by-types-mode'."
 By default, files are moved to trash unless PERMANENTLY is
 non-nil or with prefix argument."
   (interactive "P")
-  (when (yes-or-no-p "Delete marked files?")
+  (when (yes-or-no-p (format "%s marked files?" (if permanently
+                                                    "Delete" "Trash")))
     (cl-loop for entry in tabulated-list-entries
              if (disk-usage--file-info-marked (car entry))
              do (let ((delete-by-moving-to-trash (not permanently)))
-                  (delete-file (disk-usage--file-info-name (car entry))))))
-  (tabulated-list-revert))
+                  (delete-file (disk-usage--file-info-name (car entry)))))
+    (tabulated-list-revert)))
 
 (defun disk-usage-find-file-at-point ()
   (interactive)