branch: elpa/hyperdrive
commit 5f1d617ae17619dd270ccae77356e825fc7cfccf
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>

    Change: (hyperdrive-dir-sort-fields) Add description
---
 hyperdrive-vars.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 574fc45ec9..3dd5e29173 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -295,9 +295,18 @@ values are alists mapping version range starts to plists 
with
 Keys are regexps matched against MIME types.")
 
 (defvar hyperdrive-dir-sort-fields
-  '((name  :accessor hyperdrive-entry-name  :ascending string<     :descending 
string>)
-    (size  :accessor hyperdrive-entry-size  :ascending <           :descending 
>)
-    (mtime :accessor hyperdrive-entry-mtime :ascending time-less-p :descending 
hyperdrive-time-greater-p))
+  '((size  :accessor hyperdrive-entry-size
+           :ascending <
+           :descending >
+           :desc "Size")
+    (mtime :accessor hyperdrive-entry-mtime
+           :ascending time-less-p
+           :descending hyperdrive-time-greater-p
+           :desc "Last Modified")
+    (name  :accessor hyperdrive-entry-name
+           :ascending string<
+           :descending string>
+           :desc "Name"))
   "Fields for sorting hyperdrive directory buffer columns.")
 
 ;;;; Footer

Reply via email to