branch: elpa/annotate
commit 12ad966a9de9f3953305aecf80b52e20e692b431
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- wrapped 'annotate-wrap-annotation-in-box' with 'save-match-data.
---
annotate.el | 49 +++++++++++++++++++++++++------------------------
1 file changed, 25 insertions(+), 24 deletions(-)
diff --git a/annotate.el b/annotate.el
index 2e7ce2b8a0..24e63bdb23 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1051,30 +1051,31 @@ aaa aaa
aa -> aa*
a a**
"
- (let ((annotation-text (overlay-get annotation-overlay 'annotation)))
- (cl-labels ((boxify-multiline ()
- (let* ((lines (annotate--split-lines
annotation-text))
- (lines-widths (mapcar 'string-width lines))
- (max-width (cl-reduce (lambda (a b) (if (> a b)
- a
- b))
- lines-widths
- :initial-value -1))
- (padding-sizes (mapcar (lambda (a) (max (- max-width
-
(string-width a)
- 1)
- 0))
- 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))))
-
- (if annotation-on-is-own-line-p
- (list (boxify-multiline))
- (save-match-data
+ (save-match-data
+ (let ((annotation-text (overlay-get annotation-overlay 'annotation)))
+ (cl-labels ((boxify-multiline ()
+ (let* ((lines (annotate--split-lines
annotation-text))
+ (lines-widths (mapcar 'string-width lines))
+ (max-width (cl-reduce (lambda (a b) (if (> a b)
+ a
+ b))
+ lines-widths
+ :initial-value -1))
+ (padding-sizes (mapcar (lambda (a) (max (- max-width
+
(string-width a)
+ 1)
+ 0))
+ 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))))
+
+ (if annotation-on-is-own-line-p
+ (list (boxify-multiline))
+
(annotate--split-lines (annotate-lineate annotation-text
(- end-of-line
begin-of-line))))))))
