1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 56a73a689a5..f3fc51778e9 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1147,7 +1147,8 @@ Use `isearch-exit' to quit without signaling."
                   (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.