Make ctrlf go to the end of matches.

README.md

@@ -183,6 +183,11 @@ and `ctrlf-previous-match`. These functions are the same as
 features of inserting the previous search, changing to a literal
 search, or starting a new search when not already in a search session.
 
+You can customize the behavior:
+
+* If `ctrlf-go-to-end-of-match` is nil, then the cursor will move to
+the beginning of the match instead of the end.
+
 ### Search styles
 
 CTRLF implements support for literal and regexp using an extensible

ctrlf.el

@@ -74,6 +74,11 @@ return nil."
 Otherwise, the match count is only shown in the minibuffer."
   :type 'boolean)
 
+(defcustom ctrlf-go-to-end-of-match t
+  "Non-nil means to go to the end of the match after the search is finished.
+Otherwise, it goes to the beginning of the match."
+  :type 'boolean)
+
 (defcustom ctrlf-style-alist
   '((literal      . (:prompt "literal"
                              :translator regexp-quote
@@ -699,7 +704,9 @@ later (this should be used at the end of the search)."
             (if (and (not skip-search)
                      (ctrlf--search input :bound 'wraparound))
                 (progn
-                  (goto-char (match-beginning 0))
+                  (goto-char (if ctrlf-go-to-end-of-match
+                                 (match-end 0)
+                              (match-beginning 0)))
                   (setq ctrlf--match-bounds
                         (cons (match-beginning 0)
                               (match-end 0))))
@@ -855,7 +862,7 @@ For some reason this gets trashed when exiting the minibuffer, so
 we restore it to keep the scroll position consistent.
 
 I have literally no idea why this is needed.")
-
+"this is a test"
 (defun ctrlf--finalize ()
   "Perform cleanup that has to happen after the minibuffer is exited.
 And self-destruct this hook."