[nongnu] elpa/evil-visualstar 687ae03c24 18/19: set jumps and don't repeat. resolves #7 and #9.

[ELPA Syncer]

branch: elpa/evil-visualstar
commit 687ae03c247d9773b1dd332bea43e3c2e4004922
Author: Bailey Ling <bling@live.ca>
Commit: Bailey Ling <bling@live.ca>

    set jumps and don't repeat.  resolves #7 and #9.
---
 evil-visualstar.el | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/evil-visualstar.el b/evil-visualstar.el
index d4e7c6c8a2..171f7c3529 100644
--- a/evil-visualstar.el
+++ b/evil-visualstar.el
@@ -48,11 +48,18 @@
 
 (require 'evil)
 
-(defvar evil-visualstar/persistent nil
+(defgroup evil-visualstar nil
+  "evil-visualstar configuration options."
+  :prefix "evil-visualstar"
+  :group 'evil)
+
+(defcustom evil-visualstar/persistent nil
   "Set to `t` if `*` and `#` should keep visual-mode.
 That would visually-select the found occurrence, allowing for
 repeated searches.
-You will need to hit escape to leave visual-mode.")
+You will need to hit escape to leave visual-mode."
+  :group 'evil-visualstar
+  :type 'boolean)
 
 (defun evil-visualstar/begin-search (beg end direction)
   (when (evil-visual-state-p)
@@ -77,14 +84,18 @@ You will need to hit escape to leave visual-mode.")
       (when (and evil-visualstar/persistent found)
         (push-mark (+ (point) (- end beg)) nil t)))))
 
-(defun evil-visualstar/begin-search-forward (beg end)
+(evil-define-command evil-visualstar/begin-search-forward (beg end)
   "Search for the visual selection forwards."
-  (interactive "r")
+  :jump t
+  :repeat nil
+  (interactive "<r>")
   (evil-visualstar/begin-search beg end t))
 
-(defun evil-visualstar/begin-search-backward (beg end)
+(evil-define-command evil-visualstar/begin-search-backward (beg end)
   "Search for the visual selection backwards."
-  (interactive "r")
+  :jump t
+  :repeat nil
+  (interactive "<r>")
   (evil-visualstar/begin-search beg end nil))
 
 ;;;###autoload