diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:27:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:27:18 +0000 |
| commit | f4c49513ecebd4be3e02b70c09ee37b7af20acd4 (patch) | |
| tree | c1faa1b6f934e725a8290bad6294501d7dff7232 | |
| parent | a335c7d56451f7d273f0d9498f0054db0eb8e516 (diff) | |
| download | emacs-f4c49513ecebd4be3e02b70c09ee37b7af20acd4.tar.gz | |
(isearch-repeat): When changing direction, mark search successful.
| -rw-r--r-- | lisp/isearch.el | 3 |
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. |