branch: elpa/annotate
commit 2292d5c6c87e5770a71c83b5c42c3a3002be6e64
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- changed variable name from: 'text' to a more meaningful 'annotated text'.
---
annotate.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/annotate.el b/annotate.el
index 7a8e18557a..9bed16f2ba 100644
--- a/annotate.el
+++ b/annotate.el
@@ -787,7 +787,7 @@ to 'maximum-width'."
(prefix-rest (make-string annotate-annotation-column ? ))
(bol (progn (beginning-of-line) (point)))
(eol (progn (end-of-line) (point)))
- (text "")
+ (annotation-text "")
(overlays nil)
(annotation-counter 1))
;; include previous line if point is at bol:
@@ -851,8 +851,8 @@ to 'maximum-width'."
(when position-new-line-p
(setf prefix-first " \n"))
(dolist (l multiline-annotation)
- (setq text
- (concat text
+ (setq annotation-text
+ (concat annotation-text
prefix-first
(propertize l 'face face)
annotation-stopper))
@@ -861,11 +861,11 @@ to 'maximum-width'."
(setq prefix-first (concat prefix-first prefix-rest))
(setq prefix-first prefix-rest)))))
;; build facespec with the annotation text as display property
- (if (string= text "")
+ (if (string= annotation-text "")
;; annotation has been removed: remove display prop
(list 'face 'default 'display nil)
;; annotation has been changed/added: change/add display prop
- (list 'face 'default 'display text))))))
+ (list 'face 'default 'display annotation-text))))))
(defun annotate--remove-annotation-property (begin end)
"Cleans up annotation properties associated with a region."
