branch: elpa/hyperdrive
commit 9e8cf738ba9564dbeb649f5ee362e49f72993822
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tidy
---
hyperdrive-dir.el | 4 +---
hyperdrive-history.el | 4 +---
hyperdrive-vars.el | 6 +++---
3 files changed, 5 insertions(+), 9 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index f41f3e33e2..67efe54c2c 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -200,9 +200,7 @@ To be used as the pretty-printer for `ewoc-create'."
'default))
(timestamp (if mtime
(format-time-string hyperdrive-timestamp-format
mtime)
- (propertize " "
- 'display
- '(space :width
hyperdrive-timestamp-width)))))
+ (propertize " " 'display '(space :width
hyperdrive-timestamp-width)))))
(format "%6s %s %s"
(propertize (or size "")
'face 'hyperdrive-size)
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 74a08a5e2a..f814710664 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -60,9 +60,7 @@ and whose cdr is a hyperdrive entry."
(file-size-human-readable size)))
(timestamp (if mtime
(format-time-string hyperdrive-timestamp-format
mtime)
- (propertize " "
- 'display
- '(space :width
hyperdrive-timestamp-width)))))
+ (propertize " " 'display '(space :width
hyperdrive-timestamp-width)))))
;; FIXME: Use dynamic width of range column equal to 2N+1, where N
;; is the width of the hyperdrive's latest version
(format "%7s %13s %6s %s"
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 4007df5c4c..cd945c98d6 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -95,7 +95,7 @@ Passed to `display-buffer', which see."
(defcustom hyperdrive-directory-sort '(name . :ascending)
"Column by which directory entries are sorted.
-Internally, a cons cell of (COLUMN . DIRECTION), the COLUMn being
+Internally, a cons cell of (COLUMN . DIRECTION), the COLUMN being
one of the directory listing columns (\\+`name', \\+`size', or
\\+`mtime') and DIRECTION being one of \\+`:ascending' or
\\+`:descending'."
@@ -191,8 +191,8 @@ an existing buffer at the same version, or make a new
buffer."
(defface hyperdrive-column-header '((t (:inherit underline)))
"Column header.")
-(defface hyperdrive-selected-column-header '((t (:inherit underline
- :weight bold)))
+(defface hyperdrive-selected-column-header '((t ( :inherit underline
+ :weight bold)))
"Selected column header.")
(defface hyperdrive-directory '((t (:inherit dired-directory)))
