branch: externals/disk-usage
commit 345d9d8a6dce797bc892bcf9e8385bb9e487a228
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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
