[nongnu] elpa/isl 51158840e02 003/413: Ensure to restore position on quit

[ELPA Syncer]

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

    Ensure to restore position on quit
---
 isearch-light.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/isearch-light.el b/isearch-light.el
index 65e04a57a27..85aa2a18ef8 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -13,6 +13,7 @@
 (defvar il-search-iterator nil)
 (defvar il-search-last-overlay nil)
 (defvar il-search-direction nil)
+(defvar il-initial-pos nil)
 
 (defvar il-search-map
   (let ((map (make-sparse-keymap)))
@@ -109,18 +110,20 @@
       (unwind-protect
           (il-search-read-from-minibuffer "test: ")
         (il-search-delete-overlays))
-    (quit nil)))
+    (quit (goto-char il-initial-pos))))
 
 ;;;###autoload
 (defun il-search-forward ()
   (interactive)
-  (setq il-search-direction 'forward)
+  (setq il-search-direction 'forward
+        il-initial-pos (point))
   (il-search-1))
 
 ;;;###autoload
 (defun il-search-backward ()
   (interactive)
-  (setq il-search-direction 'backward)
+  (setq il-search-direction 'backward
+        il-initial-pos (point))
   (il-search-1))