branch: externals/disk-usage
commit 696dd5c24b1706a007d9f4c29703c3682213ca85
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Fix free references
---
disk-usage.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/disk-usage.el b/disk-usage.el
index d5c31fe..327ddc6 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -144,6 +144,18 @@ This is slow but does not require any external process."
disk-usage--du-args path))
(buffer-string))))))
+(defun disk-usage--sort-size-< (a b)
+ (let ((size-a (string-to-number (aref (cadr a) 0)))
+ (size-b (string-to-number (aref (cadr b) 0))))
+ (< size-a size-b)))
+
+(defvar disk-usage--format-size #'file-size-human-readable
+ "How to print size.
+Takes a number and returns a string.
+`file-size-human-readable' and `number-to-string' are good candidates.")
+
+(defvar disk-usage--sort #'disk-usage--sort-size-<)
+
(defun disk-usage--set-format (&optional total-size)
(setq tabulated-list-format
`[("Size"
@@ -178,18 +190,6 @@ This is slow but does not require any external process."
(aref e 1)))))
listing))))
-(defun disk-usage--sort-size-< (a b)
- (let ((size-a (string-to-number (aref (cadr a) 0)))
- (size-b (string-to-number (aref (cadr b) 0))))
- (< size-a size-b)))
-
-(defvar disk-usage--sort #'disk-usage--sort-size-<)
-
-(defvar disk-usage--format-size #'file-size-human-readable
- "How to print size.
-Takes a number and returns a string.
-`file-size-human-readable' and `number-to-string' are good candidates.")
-
(defvar disk-usage--format-files #'identity
"How to print files.
Takes a string and returns a string.
