branch: externals/disk-usage
commit f330f01882e02e4678e536f1ef195e2fcd1cafd8
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Fix structure manipulation in disk-usage-by-types
---
disk-usage.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index 3ba8e9c..b5a7518 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -423,9 +423,9 @@ TYPE is the file extension (lower case)."
(setq directory (or directory default-directory))
(let ((listing (disk-usage--list-recursively directory))
(table (make-hash-table :test #'equal)))
- (dolist (file-entry listing)
- (let* ((ext (downcase (or (file-name-extension (aref file-entry 1)) "")))
- (size (aref file-entry 0))
+ (dolist (file-info listing)
+ (let* ((ext (downcase (or (file-name-extension
(disk-usage--file-info-name file-info)) "")))
+ (size (disk-usage--file-info-size file-info))
(type (gethash ext table)))
(puthash ext
(if (not type)
