[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/disk-usage 2c02d94 1/3: Fix file and directory deletion
From: |
Pierre Neidhardt |
Subject: |
[elpa] externals/disk-usage 2c02d94 1/3: Fix file and directory deletion |
Date: |
Mon, 22 Apr 2019 07:10:11 -0400 (EDT) |
branch: externals/disk-usage
commit 2c02d9427e01a3d82312d2da7d580ffc85a8fcb6
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>
Fix file and directory deletion
---
disk-usage.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index 7dbd574..cc47038 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -632,8 +632,13 @@ non-nil or with prefix argument."
"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)))))
+ do (let ((delete-by-moving-to-trash (not permanently))
+ (file (disk-usage--file-info-name (car entry))))
+ (if (file-directory-p file)
+ (delete-directory file
+ 'recursive
+ delete-by-moving-to-trash)
+ (delete-file file delete-by-moving-to-trash))))
(tabulated-list-revert)))
(defun disk-usage-find-file-at-point ()