[elpa] externals/disk-usage 03ce75bbb0 2/2: Merge branch 'silencio' into 'master'

[ELPA Syncer]

branch: externals/disk-usage
commit 03ce75bbb03a1b5b26c6f91913219ad320919a43
Merge: cd4e1cb831 345d9d8a6d
Author: Ambrevar <mail@ambrevar.xyz>
Commit: Ambrevar <mail@ambrevar.xyz>

    Merge branch 'silencio' into 'master'
    
    Remove unused variable binding
    
    See merge request ambrevar/emacs-disk-usage!6
---
 disk-usage.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index a087c01f9b..63a7378597 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -347,16 +347,15 @@ It takes the directory to scan as argument."
 (defun disk-usage--total (listing)
   "Return the total size of all files in LISTING.
 Hard-links are taken into account."
-  (let ((map (make-hash-table :test #'equal)))
-    (cl-loop with map = (make-hash-table :test #'equal)
-             for file in listing
-             for index = (and (/= 0 (disk-usage--file-info-inode file))
-                              (list (disk-usage--file-info-inode file)
-                                    (disk-usage--file-info-device file)))
-             unless (gethash index map)
-             sum (disk-usage--file-info-size file)
-             when index
-             do (puthash index t map))))
+  (cl-loop with map = (make-hash-table :test #'equal)
+           for file in listing
+           for index = (and (/= 0 (disk-usage--file-info-inode file))
+                            (list (disk-usage--file-info-inode file)
+                                  (disk-usage--file-info-device file)))
+           unless (gethash index map)
+           sum (disk-usage--file-info-size file)
+           when index
+           do (puthash index t map)))
 
 (defun disk-usage--directory-size (path)
   (let ((size (unless current-prefix-arg