branch: externals/disk-usage
commit 0fff6a89c6e90d9526ace4aad4e815b863b7315c
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Fix 'nil' children issue on inaccessible directories
---
disk-usage.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/disk-usage.el b/disk-usage.el
index b035aeb..39d5a25 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -156,7 +156,9 @@
(disk-usage--file-info-make
:name path
:size (disk-usage--directory-size path)
- :children (- (length (directory-files path)) 2)))
+ :children (if (file-accessible-directory-p path)
+ (- (length (directory-files path)) 2)
+ 0)))
(list (disk-usage--file-info-make :size 0 :name directory)))))
(defun disk-usage--list-recursively (directory)