From f4c49513ecebd4be3e02b70c09ee37b7af20acd4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Aug 2005 11:27:18 +0000 Subject: [PATCH] (isearch-repeat): When changing direction, mark search successful. --- lisp/isearch.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.2