[nongnu] elpa/isl 99ede972365 185/413: Allow prefix arg in goto-next/prev

[ELPA Syncer]

branch: elpa/isl
commit 99ede972365f360ebed1c77d176344c64a82e00d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>

    Allow prefix arg in goto-next/prev
---
 isearch-light.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/isearch-light.el b/isearch-light.el
index 4090ae73220..d3ed32a9c60 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -207,13 +207,14 @@ in pattern."
   (when (overlayp isl--last-overlay)
     (overlay-put isl--last-overlay 'face face)))
 
-(defun isl-goto-next-1 ()
+(defun isl-goto-next-1 (arg)
   "Main function that allow moving from one to another overlay.
 It put overlay on current position, move to next overlay using
 `isl--iterator', set `isl--yank-point' and then setup mode-line."
   (with-selected-window (minibuffer-selected-window)
     (isl--highlight-last-overlay 'isl-match)
     (when isl--iterator
+      (cl-loop repeat (1- arg) do (isl-iter-next isl--iterator))
       (isl--goto-overlay (isl-iter-next isl--iterator)))
     (isl-setup-mode-line)))
 
@@ -255,22 +256,22 @@ It put overlay on current position, move to next overlay 
using
       (isl--find-and-goto-overlay ov))))
 (put 'isl-goto-closest-from-start 'no-helm-mx t)
 
-(defun isl-goto-next ()
+(defun isl-goto-next (&optional arg)
   "Go to next match."
-  (interactive)
+  (interactive "p")
   (when (eq isl--direction 'backward)
     (setq isl--direction 'forward)
     (isl-set-iterator t))
-  (isl-goto-next-1))
+  (isl-goto-next-1 arg))
 (put 'isl-goto-next 'no-helm-mx t)
 
-(defun isl-goto-prev ()
+(defun isl-goto-prev (&optional arg)
   "Go to previous match"
-  (interactive)
+  (interactive "p")
   (when (eq isl--direction 'forward)
     (setq isl--direction 'backward)
     (isl-set-iterator t))
-  (isl-goto-next-1))
+  (isl-goto-next-1 arg))
 (put 'isl-goto-prev 'no-helm-mx t)
 
 (defun isl-exit-at-point ()