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
