[elpa] externals/disk-usage 696dd5c2 17/48: Fix free references

[Stefan Monnier]

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

    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.