branch: elpa/isl
commit 5dd34d391501a22427d87c2e45b191a207419531
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>

    Start searching ov from current ov instead
    
    of searching in the whole list.  Fix docstring.
---
 isl.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/isl.el b/isl.el
index 7f388673648..756065cefbc 100644
--- a/isl.el
+++ b/isl.el
@@ -350,14 +350,14 @@ It put overlay on current position, move to next overlay 
using
       (isl--find-and-goto-overlay ov))))
 
 (defun isl--first-ov-after-pos (pos)
-  "Move to next overlay from POS."
-  (cl-loop for ov in isl--item-overlays
+  "Find next overlay after POS."
+  (cl-loop for ov in (memql isl--last-overlay isl--item-overlays)
            when (> (overlay-start ov) pos)
            return ov))
 
 (defun isl--first-ov-before-pos (pos)
-  "Move to previous overlay from POS."
-  (cl-loop for ov in (reverse isl--item-overlays)
+  "Find previous overlay before POS."
+  (cl-loop for ov in (memql isl--last-overlay (reverse isl--item-overlays))
            when (< (overlay-start ov) pos)
            return ov))
 

Reply via email to