[nongnu] elpa/annotate c103381862 280/372: - moved 'save-match-data' from the function that calls

[ELPA Syncer]

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

    - moved    'save-match-data'   from    the    function   that    calls
      'annotate--split-lines' inside  the body of the  latter; to remove
      any side-effect.
---
 annotate.el | 50 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/annotate.el b/annotate.el
index c7a2e98554..93486a1d8f 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1031,7 +1031,8 @@ to 'maximum-width'."
 
 (cl-defun annotate--split-lines (text &optional (separator "\n"))
   "Returns text splitted by `separator' (default: \"\n\")"
-  (split-string text "\n"))
+  (save-match-data
+    (split-string text "\n")))
 
 (defun annotate-wrap-annotation-in-box (annotation-overlay
                                         begin-of-line
@@ -1051,30 +1052,29 @@ aaa      aaa
 aa   ->  aa*
 a        a**
 "
-  (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-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))
-                           (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))))))))
+  (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-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))
+                         (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)))))))
 
 (defun annotate--annotation-builder ()
   "Searches the line before point for annotations, and returns a