From 172d421c9879fe36192088213b44e509d74c7ba0 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 19 Oct 1995 22:23:57 +0000
Subject: (isearch-message-prefix): Change "wrapped" to "overwrapped" when past
 original start point.

---
 lisp/isearch.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lisp/isearch.el')

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3e74c811170..cd035b08b3e 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1312,6 +1312,11 @@ If there is no completion possible, say so and continue searching."
   ;; If currently failing, display no ellipsis.
   (or isearch-success (setq ellipsis nil))
   (let ((m (concat (if isearch-success "" "failing ")
+		   (if (and isearch-wrapped
+			    (if isearch-forward
+				(> (point) isearch-opoint)
+			      (< (point) isearch-opoint)))
+		       "over")
 		   (if isearch-wrapped "wrapped ")
 		   (if isearch-word "word " "")
 		   (if isearch-regexp "regexp " "")
-- 
cgit v1.2.1