[nongnu] elpa/evil-visualstar 6e9f2349ad 07/19: This makes visualstar persistent, i.e. one can continue searching the next occurrence(s) of the visual selection by repeatedly hitting '*' or '#'.

[ELPA Syncer]

branch: elpa/evil-visualstar
commit 6e9f2349ada875699b2a0759632088ae992da93b
Author: Guido Van Hoecke <guivho@gmail.com>
Commit: Guido Van Hoecke <guivho@gmail.com>

    This makes visualstar persistent, i.e. one can continue searching the next 
occurrence(s) of the visual selection by repeatedly hitting '*' or '#'.
---
 evil-visualstar.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/evil-visualstar.el b/evil-visualstar.el
index 1bb76185ec..df596b41d3 100644
--- a/evil-visualstar.el
+++ b/evil-visualstar.el
@@ -48,17 +48,22 @@
 (defun evil-visualstar/begin-search (beg end direction)
   (when (evil-visual-state-p)
     (evil-exit-visual-state)
-    (let ((selection (regexp-quote (buffer-substring-no-properties beg end))))
+    (let ((found)
+          (selection (regexp-quote (buffer-substring-no-properties beg end))))
       (if (eq evil-search-module 'isearch)
           (progn
             (setq isearch-forward direction)
-            (evil-search selection direction t))
+            (setq found (evil-search selection direction t)))
         (let ((pattern (evil-ex-make-search-pattern selection))
               (direction (if direction 'forward 'backward)))
           (setq evil-ex-search-direction direction)
           (setq evil-ex-search-pattern pattern)
           (evil-ex-search-activate-highlight pattern)
-          (evil-ex-search-next))))))
+          (setq found (evil-ex-search-next))))
+      (when found
+        (push-mark (- (+ end (point)) beg) t)
+        (exchange-point-and-mark)
+        (exchange-point-and-mark)))))
 
 (defun evil-visualstar/begin-search-forward (beg end)
   "Search for the visual selection forwards."