[nongnu] elpa/annotate e43d2f9e65 069/372: - fixed left margin of annotation

[ELPA Syncer]

branch: elpa/annotate
commit e43d2f9e65b3383612e4392badf31b53fa8269a8
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - fixed left margin of annotation
      the colored  part no more  reaches the end of  the window on  the left
      side if not needed.
---
 annotate.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 698ca3d6fd..889efc691a 100644
--- a/annotate.el
+++ b/annotate.el
@@ -484,10 +484,12 @@ to 'maximum-width'."
          (available-width        (if (> theoretical-line-width 0)
                                      theoretical-line-width
                                    line-width))
-         (lineated-list             (group-by-width text available-width))
+         (lineated-list          (group-by-width text available-width))
+         (max-width              (apply #'max
+                                        (mapcar #'string-width lineated-list)))
          (lineated               (cl-mapcar (lambda (a)
                                               (let* ((size       (string-width 
a))
-                                                     (rest-width (max (- 
available-width
+                                                     (rest-width (max (- 
max-width
                                                                          size)
                                                                       0))
                                                      (padding    (make-string 
rest-width