[elpa] externals/disk-usage f330f01 31/48: Fix structure manipulation in disk-usage-by-types

[Stefan Monnier]

branch: externals/disk-usage
commit f330f01882e02e4678e536f1ef195e2fcd1cafd8
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    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)