[nongnu] elpa/annotate cc4292cce4 181/372: - moved the test for 'limit' up in the lambda of the filtering

[ELPA Syncer]

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

    - moved  the test  for  'limit'  up in  the  lambda  of the  filtering
      procedure.
---
 annotate.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/annotate.el b/annotate.el
index 721a4e7d55..7a48ecad78 100644
--- a/annotate.el
+++ b/annotate.el
@@ -639,8 +639,11 @@ annotation plus the newline."
       nil ; no match found before limit
     (progn
       ;; go to the end of the longest annotation under point
-      (let ((overlays (sort (cl-remove-if-not 'annotationp
-                                              (overlays-at (point)))
+      (let ((overlays (sort (cl-remove-if (lambda (a)
+                                            (or (not (annotationp a))
+                                                (> (overlay-end a)
+                                                   limit)))
+                                          (overlays-at (point)))
                             (lambda (x y)
                               (> (overlay-end x) (overlay-end y))))))
         (when overlays