[elpa] externals/disk-usage 345d9d8a6d 1/2: Remove unused binding

[ELPA Syncer]

branch: externals/disk-usage
commit 345d9d8a6dce797bc892bcf9e8385bb9e487a228
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Remove unused binding
    
    `map' is also being bound using `cl-loop'.  The outer
    binding is unused as reported by the byte-compiler.
---
 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