# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123586838 0
# Node ID ff78c70a52e2d8fb85a9edc007f52cc6adb99f6d
# Parent  3b8ee785ce354469ca08cdbc1dca0b56cb24bba6
(isearch-repeat): When changing direction, mark search successful.

diff -r 3b8ee785ce35 -r ff78c70a52e2 lisp/isearch.el
--- a/lisp/isearch.el	Tue Aug 09 11:26:13 2005 +0000
+++ b/lisp/isearch.el	Tue Aug 09 11:27:18 2005 +0000
@@ -1147,7 +1147,8 @@
 		  (funcall isearch-wrap-function)
 	        (goto-char (if isearch-forward (point-min) (point-max)))))))
     ;; C-s in reverse or C-r in forward, change direction.
-    (setq isearch-forward (not isearch-forward)))
+    (setq isearch-forward (not isearch-forward)
+	  isearch-success t))
 
   (setq isearch-barrier (point)) ; For subsequent \| if regexp.