diff options
| author | Richard M. Stallman | 2005-08-09 11:27:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-08-09 11:27:18 +0000 |
| commit | f4c49513ecebd4be3e02b70c09ee37b7af20acd4 (patch) | |
| tree | c1faa1b6f934e725a8290bad6294501d7dff7232 | |
| parent | a335c7d56451f7d273f0d9498f0054db0eb8e516 (diff) | |
| download | emacs-f4c49513ecebd4be3e02b70c09ee37b7af20acd4.tar.gz emacs-f4c49513ecebd4be3e02b70c09ee37b7af20acd4.zip | |
(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." | |||
| 1147 | (funcall isearch-wrap-function) | 1147 | (funcall isearch-wrap-function) |
| 1148 | (goto-char (if isearch-forward (point-min) (point-max))))))) | 1148 | (goto-char (if isearch-forward (point-min) (point-max))))))) |
| 1149 | ;; C-s in reverse or C-r in forward, change direction. | 1149 | ;; C-s in reverse or C-r in forward, change direction. |
| 1150 | (setq isearch-forward (not isearch-forward))) | 1150 | (setq isearch-forward (not isearch-forward) |
| 1151 | isearch-success t)) | ||
| 1151 | 1152 | ||
| 1152 | (setq isearch-barrier (point)) ; For subsequent \| if regexp. | 1153 | (setq isearch-barrier (point)) ; For subsequent \| if regexp. |
| 1153 | 1154 | ||