[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/disk-usage f4f6bfa: * disk-usage.el: Place defvaralias before the variable declaration,
Stefan Monnier <=