[nongnu] elpa/annotate b68170837e 279/372: - fixed the width of the last row of the box

[ELPA Syncer]

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))))))))