[elpa] externals/disk-usage 2c02d94 1/3: Fix file and directory deletion

[Pierre Neidhardt]

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