[nongnu] elpa/annotate 1c64e46ad0 109/372: - changed variable name

[ELPA Syncer]

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

    - changed variable name
      - face-type-count -> annotation-counter
---
 annotate.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/annotate.el b/annotate.el
index c5da94a324..7c1170100c 100644
--- a/annotate.el
+++ b/annotate.el
@@ -701,14 +701,14 @@ to 'maximum-width'."
   "Searches the line before point for annotations, and returns a
 `facespec` with the annotation in its `display` property."
   (save-excursion
-    (goto-char (1- (point))) ; we start at the start of the next line
+    (goto-char (1- (point)))  ; we start at the start of the next line
     ;; find overlays in the preceding line
-    (let ((prefix          (annotate-make-prefix)) ; white space before first 
annotation
-          (bol             (progn (beginning-of-line) (point)))
-          (eol             (progn (end-of-line) (point)))
-          (text            "")
-          (overlays        nil)
-          (face-type-count 1))
+    (let ((prefix             (annotate-make-prefix)) ; white spaces before 
first annotation
+          (bol                (progn (beginning-of-line) (point)))
+          (eol                (progn (end-of-line) (point)))
+          (text               "")
+          (overlays           nil)
+          (annotation-counter 1))
       ;; include previous line if point is at bol:
       (when (eq nil (overlays-in bol eol))
         (setq bol (1- bol)))
@@ -718,11 +718,11 @@ to 'maximum-width'."
                     (< (overlay-end x) (overlay-end y)))))
       ;; put each annotation on its own line
       (dolist (ov overlays)
-        (cl-incf face-type-count)
-        (let ((face           (if (= (cl-rem face-type-count 2) 0)
+        (cl-incf annotation-counter)
+        (let ((face           (if (= (cl-rem annotation-counter 2) 0)
                                   'annotate-annotation
                                 'annotate-annotation-secondary))
-              (face-highlight (if (= (cl-rem face-type-count 2) 0)
+              (face-highlight (if (= (cl-rem annotation-counter 2) 0)
                                   'annotate-highlight
                                 'annotate-highlight-secondary)))
           (overlay-put ov 'face face-highlight)