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
