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

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

[nongnu] elpa/annotate 2292d5c6c8 160/372: - changed variable name from:


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 2292d5c6c8 160/372: - changed variable name from: 'text' to a more meaningful 'annotated text'.
Date: Fri, 4 Feb 2022 16:58:55 -0500 (EST)

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."



reply via email to

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