emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/disk-usage f4f6bfa: * disk-usage.el: Place defvaralias


From: Stefan Monnier
Subject: [elpa] externals/disk-usage f4f6bfa: * disk-usage.el: Place defvaralias before the variable declaration
Date: Tue, 26 Mar 2019 08:39:03 -0400 (EDT)

branch: externals/disk-usage
commit f4f6bfa13e60360a5b86cc867daaac64dc381ba7
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * disk-usage.el: Place defvaralias before the variable declaration
    
    (disk-usage--du-command, disk-usage--du-args)
    (disk-usage--find-command, disk-usage--directory-size-function):
    Swap defvaralias and defcustom.
---
 disk-usage.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index 7dbd574..5a31a59 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -78,23 +78,24 @@
   "Whether to kill the current `disk-usage' buffer before moving directory."
   :type 'boolean)
 
+(defvaralias 'disk-usage--du-command 'disk-usage-du-command)
 (defcustom disk-usage-du-command (if (member system-type '(gnu gnu/linux 
gnu/kfreebsd))
                                      "du"
                                    "gdu")
   "Non-GNU users need GNU's `du' for the `-b' flag.  See `disk-usage-du-args'."
   :type 'string)
-(defvaralias 'disk-usage--du-command 'disk-usage-du-command)
 
+(defvaralias 'disk-usage--du-args 'disk-usage-du-args)
 (defcustom disk-usage-du-args "-sb"
   "Non-GNU users need GNU's `du' for the `-b' flag.  See 
`disk-usage-du-command'."
   :type 'string)
-(defvaralias 'disk-usage--du-args 'disk-usage-du-args)
 
+(defvaralias 'disk-usage--find-command 'disk-usage-find-command)
 (defcustom disk-usage-find-command "find"
   "The `find' executable.  This is required for recursive listings."
   :type 'string)
-(defvaralias 'disk-usage--find-command 'disk-usage-find-command)
 
+(defvaralias 'disk-usage--directory-size-function 
'disk-usage-directory-size-function)
 (defcustom disk-usage-directory-size-function
   (if (executable-find disk-usage-du-command)
       #'disk-usage-directory-size-with-du
@@ -102,7 +103,6 @@
   "Function that returns the total disk usage of the directory passed as 
argument."
   :type '(choice (function :tag "Native (slow)" 
disk-usage-directory-size-with-emacs)
                  (function :tag "System \"du\"" 
disk-usage-directory-size-with-du)))
-(defvaralias 'disk-usage--directory-size-function 
'disk-usage-directory-size-function)
 
 (defface disk-usage-inaccessible
   '((t :inherit error



reply via email to

[Prev in Thread] Current Thread [Next in Thread]