[nongnu] elpa/annotate 1525550f85 182/372: - changed test for annotation rejection and removed (maybe) useless check.

[ELPA Syncer]

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

    - changed test for annotation rejection and removed (maybe) useless check.
---
 annotate.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/annotate.el b/annotate.el
index 7a48ecad78..975ba709f1 100644
--- a/annotate.el
+++ b/annotate.el
@@ -640,19 +640,19 @@ annotation plus the newline."
     (progn
       ;; go to the end of the longest annotation under point
       (let ((overlays (sort (cl-remove-if (lambda (a)
-                                            (or (not (annotationp a))
-                                                (> (overlay-end a)
-                                                   limit)))
+                                            (not (and (annotationp a)
+                                                      (< (overlay-end a)
+                                                         limit))))
                                           (overlays-at (point)))
                             (lambda (x y)
-                              (> (overlay-end x) (overlay-end y))))))
+                              (> (overlay-end x)
+                                 (overlay-end y))))))
         (when overlays
           (goto-char (overlay-end (car overlays)))))
       ;; capture the area from the overlay to EOL (regexp match #1)
       ;; for the modification guard and the newline itself (regexp
       ;; match #2) for the annotation.
-      (when (< (point) limit)
-        (re-search-forward "\\(.*\\(\n\\)\\)" limit t)))))
+      (re-search-forward "\\(.*\\(\n\\)\\)" limit t))))
 
 (cl-defstruct annotate-group
   words