branch: elpa/magit
commit e3edbf0d0764584d9e0a30e38bd635ec5052893f
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit--age: Cosmetics
---
lisp/magit-margin.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/magit-margin.el b/lisp/magit-margin.el
index a85578ad670..841da400ba9 100644
--- a/lisp/magit-margin.el
+++ b/lisp/magit-margin.el
@@ -246,14 +246,14 @@ English.")
(string-to-number date)
date))))
(spec magit--age-spec))
- (pcase-let ((`(,char ,unit ,units ,weight) (car spec)))
- (let ((cnt (round (/ age weight 1.0))))
- (if (or (not (cdr spec))
- (>= (/ age weight) 1))
- (list cnt (cond (abbreviate char)
- ((= cnt 1) unit)
- (units)))
- (calc age (cdr spec)))))))
+ (pcase-let* ((`((,char ,unit ,units ,weight) . ,spec) spec)
+ (cnt (round (/ age weight 1.0))))
+ (if (or (not spec)
+ (>= (/ age weight) 1))
+ (list cnt (cond (abbreviate char)
+ ((= cnt 1) unit)
+ (units)))
+ (calc age spec)))))
;;; _
(provide 'magit-margin)
