[nongnu] elpa/annotate b505af0f27 300/372: - updated NEWS, Changelog and version number.

[ELPA Syncer]

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

    - updated NEWS, Changelog and version number.
---
 Changelog   | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 NEWS.org    |  5 +++++
 annotate.el |  4 ++--
 3 files changed, 80 insertions(+), 2 deletions(-)

diff --git a/Changelog b/Changelog
index eda6db44cf..f6c6d26f1e 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,76 @@
+2021-02-05  cage
+
+        * annotate.el:
+
+       - fixed 'annotate-previous-annotation-ends'
+
+       'annotate-previous-annotation-ends'  scans   the  buffer  contents
+       backward looking for an annotation before a buffer position
+        (let's' call this position 'POS').
+
+       If an annotation exists on 'POS' the backward search starts from a
+       position less than the starts of said annotation.
+
+       But unfortunately in the local function
+       'annotate-previous-annotation-ends' the test to stop the searching
+       is wrong.
+
+       This is the code for the local function:
+
+       ----
+
+       (cl-labels ((previous-annotation-ends (start)
+         (let ((annotation (annotate-annotation-at start)))
+           (while (and (/= start (point-min))
+                        (null annotation))
+              (setf start (previous-overlay-change start))
+             (setf annotation (annotate-annotation-at start)))
+            annotation))))
+
+       ----
+
+       Let's   assume  that   the  annotation   under  'POS'   starts  at
+       (point-min), of course this is  the first annotation of the buffer
+       and the function should returns nil.
+
+       Then the initial value of  'start' (argument of the local function
+       above) is one less the starting  of the annotation under 'POS' and
+       -in  this  case-  values  0   (when  '(point-min)'  values  1)  no
+       annotations can exist  at 0 and, moreover,  (/= start (point-min))
+       is  non nil;  therefore the  test passes  and the  results of  the
+       function  is  the  annotation  under the  position  'start'  where
+       'start' get the value of (previous-overlay-change start)).
+
+       The latter expression '(previous-overlay-change start)' return the
+       position in  the buffer where there  is a change in  an overlay or
+       (point-min)  if no  change in  overlay exists;  in the  case under
+       examination the  expression returns (point-min) as  the annotation
+       under 'POS' is the first in the buffer.
+
+       In conclusion, the function returns  the annotation under 'POS' as
+       the annotation that supposed to starts before the annotation under
+       'POS', instead of nil!
+
+       To reproduce the bug:
+
+       buffer contents
+       ****
+       ****
+       ^^^
+       annotate this portion of the buffer
+
+       ****
+       *aaa
+
+       then annotate all the non-annotated text.
+
+       AAAA
+       Aaaa
+
+       The coloring  of the highlight of  the two annotation will  be the
+       same (wrong) while the background  color of the annotation text is
+       not (which is correct).
+
 2021-01-15  cage
 
         * annotate.el:
diff --git a/NEWS.org b/NEWS.org
index db0714e246..d276099634 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -192,3 +192,8 @@
 
   Optimized the code to speedup  reading and saving of encrypted (with
   GPG) annotated files.
+
+- 2021-02-05 V1.1.4 Bastian Bechtold, cage ::
+
+  Fixed highlight color  of annotated text that starts  from the first
+  character of the buffer'sconten.
diff --git a/annotate.el b/annotate.el
index 46765ea64c..dbd56f521b 100644
--- a/annotate.el
+++ b/annotate.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Bastian Bechtold
 ;; URL: https://github.com/bastibe/annotate.el
 ;; Created: 2015-06-10
-;; Version: 1.1.3
+;; Version: 1.1.4
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -58,7 +58,7 @@
 ;;;###autoload
 (defgroup annotate nil
   "Annotate files without changing them."
-  :version "1.1.3"
+  :version "1.1.4"
   :group 'text)
 
 ;;;###autoload