[elpa] externals/wrap-search 6e4bc3d625 2/2: Tue Aug 13 06:06:18 AM CEST 2024

[ELPA Syncer]

branch: externals/wrap-search
commit 6e4bc3d6258ec367e765a6ab7051f2f2b00f1ac9
Author: Emanuel Berg <incal@dataswamp.org>
Commit: Emanuel Berg <incal@dataswamp.org>

    Tue Aug 13 06:06:18 AM CEST 2024
---
 wrap-search.el | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/wrap-search.el b/wrap-search.el
index d5f27f9f32..11b193e8f2 100644
--- a/wrap-search.el
+++ b/wrap-search.el
@@ -8,7 +8,7 @@
 ;; Keywords: matching
 ;; License: GPL3+
 ;; URL: https://dataswamp.org/~incal/elpa/wrap-search.el
-;; Version: 4.16.18
+;; Version: 4.16.19
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -70,11 +70,6 @@
 ;;
 ;;; Code:
 
-(defcustom wrap-search-echo-point nil
-  "Whether to echo point after a search hit."
-  :group 'wrap-search
-  :type  'boolean)
-
 (let ((prev-str "dummy search string")
       (prev-case)
       (prev-rev)
@@ -140,15 +135,12 @@ Do \\[wrap-search-again] to repeat, with 
`wrap-search-again'."
                          (list #'search-backward end beg)
                        (list #'search-forward beg end))))
           (if (funcall search-f str search-end t)
-              (when wrap-search-echo-point
-                (message "hit: %s" (point)))
+              (message "hit: %s" (point))
             (goto-char search-beg)
             (if (funcall search-f str (+ pos (if rev 0 (length str))) t)
                 (if (= pos (point))
                     (message "this is the only occurrence")
-                  (message "wrap%s" (if wrap-search-echo-point
-                                        (format ": %s" (point))
-                                      "")))
+                  (message "wrap: %s" (point)))
               (goto-char pos)
               (message "no hit")))))))
   (declare-function wrap-search nil))