branch: elpa/annotate
commit b68170837e35394312a037c3b8f9ad776500524e
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- fixed the width of the last row of the box
---
annotate.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/annotate.el b/annotate.el
index 24e63bdb23..c7a2e98554 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1061,21 +1061,18 @@ a a**
b))
lines-widths
:initial-value -1))
- (padding-sizes (mapcar (lambda (a) (max (- max-width
-
(string-width a)
- 1)
- 0))
+ (padding-sizes (mapcar (lambda (a) (- max-width
+ (string-width
a)))
lines))
(paddings (mapcar (lambda (a) (make-string a ?
))
padding-sizes))
(box-lines (cl-mapcar (lambda (a b) (concat a
b))
- lines paddings)))
- (cl-reduce (lambda (a b) (concat a "\n" b))
- box-lines))))
-
+ lines paddings))
+ (almost-boxed (cl-reduce (lambda (a b) (concat a
"\n" b))
+ box-lines)))
+ (concat almost-boxed " "))))
(if annotation-on-is-own-line-p
(list (boxify-multiline))
-
(annotate--split-lines (annotate-lineate annotation-text
(- end-of-line
begin-of-line))))))))
