emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/annotate 4bcecdc875 156/372: - replaced 'splitted-annotati


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 4bcecdc875 156/372: - replaced 'splitted-annotation' with 'multiline-annotation'.
Date: Fri, 4 Feb 2022 16:58:43 -0500 (EST)

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

    - replaced 'splitted-annotation' with 'multiline-annotation'.
---
 annotate.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/annotate.el b/annotate.el
index 7f7e8287b3..875a240a7e 100644
--- a/annotate.el
+++ b/annotate.el
@@ -823,24 +823,24 @@ to 'maximum-width'."
                                          annotation-long-p)
                                         (otherwise
                                          nil)))
-                 (splitted-annotation (if position-new-line-p
-                                          (list (overlay-get ov 'annotation))
-                                        (save-match-data
-                                          (split-string (annotate-lineate 
(overlay-get ov
-                                                                               
        'annotation)
-                                                                          (- 
eol bol))
-                                                        "\n"))))
-                 (annotation-stopper  (if position-new-line-p
-                                          (if (= annotation-counter
-                                                 (length overlays))
-                                              "\n"
-                                            "")
-                                        "\n")))
+                 (multiline-annotation (if position-new-line-p
+                                           (list (overlay-get ov 'annotation))
+                                         (save-match-data
+                                           (split-string (annotate-lineate 
(overlay-get ov
+                                                                               
         'annotation)
+                                                                           (- 
eol bol))
+                                                         "\n"))))
+                 (annotation-stopper   (if position-new-line-p
+                                           (if (= annotation-counter
+                                                  (length overlays))
+                                               "\n"
+                                             "")
+                                         "\n")))
             (cl-incf annotation-counter)
             (overlay-put ov 'face face-highlight)
             (when position-new-line-p
               (setf prefix-first " \n"))
-            (dolist (l splitted-annotation)
+            (dolist (l multiline-annotation)
               (setq text
                     (concat text
                             prefix-first



reply via email to

[Prev in Thread] Current Thread [Next in Thread]