[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage f3c64a1 43/48: Prompt whether deleting or tr
From: |
Stefan Monnier |
Subject: |
[elpa] externals/disk-usage f3c64a1 43/48: Prompt whether deleting or trashing and only revert if proceeding |
Date: |
Tue, 19 Feb 2019 08:00:05 -0500 (EST) |
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)
- [elpa] externals/disk-usage 21b5749 38/48: Add disk-usage-files, (continued)
- [elpa] externals/disk-usage 21b5749 38/48: Add disk-usage-files, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage e44979a 45/48: Version 1.1.0, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 696dd5c2 17/48: Fix free references, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage c55d478 34/48: Document modes and prefix argument, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 3af5aa8 25/48: Reset hash table properly, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 01561b5 30/48: Implement marking and deletion, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage ae7ba9c 39/48: Fix missing "s" in type-info-names, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage d8d1643 35/48: Document file deletion, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 342d381 18/48: Add recursive listings, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 1806ea2 46/48: Support region and numeric arg when marking, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage f3c64a1 43/48: Prompt whether deleting or trashing and only revert if proceeding,
Stefan Monnier <=
- [elpa] externals/disk-usage 7e0705e 47/48: Display percentage in disk-usage, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage 745dd7e 01/48: Init, Stefan Monnier, 2019/02/19
- [elpa] externals/disk-usage f89b69d 48/48: Display children in disk-usage, Stefan Monnier, 2019/02/19