diff options
| author | Richard M. Stallman | 1996-09-01 20:46:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-01 20:46:31 +0000 |
| commit | 149d4fe55c72f75c66257514ea3e0707592b479b (patch) | |
| tree | 923b4e780cf1981a3c50986e7a29e0583a78015f | |
| parent | 0a20b6841d0534ff4777d5429b657a58047e139b (diff) | |
| download | emacs-149d4fe55c72f75c66257514ea3e0707592b479b.tar.gz emacs-149d4fe55c72f75c66257514ea3e0707592b479b.zip | |
(isearch-*-char): Use the isearch-other-end as new
starting point in both directions.
| -rw-r--r-- | lisp/isearch.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 8b3fe4272aa..4df0235ee09 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -968,12 +968,12 @@ If no previous match was done, just beep." | |||
| 968 | 968 | ||
| 969 | (progn | 969 | (progn |
| 970 | (setq isearch-adjusted t) | 970 | (setq isearch-adjusted t) |
| 971 | (let ((cs (nth (if isearch-forward | 971 | ;; Get the isearch-other-end from before the last search. |
| 972 | 5 ; isearch-other-end | 972 | ;; We want to start from there, |
| 973 | 2) ; saved (point) | 973 | ;; so that we don't retreat farther than that. |
| 974 | (car (cdr isearch-cmds))))) | 974 | ;; (car isearch-cmds) is after last search; |
| 975 | ;; (car isearch-cmds) is after last search; | 975 | ;; (car (cdr isearch-cmds)) is from before it. |
| 976 | ;; (car (cdr isearch-cmds)) is from before it. | 976 | (let ((cs (nth 5 (car (cdr isearch-cmds))))) |
| 977 | (setq cs (or cs isearch-barrier)) | 977 | (setq cs (or cs isearch-barrier)) |
| 978 | (goto-char | 978 | (goto-char |
| 979 | (if isearch-forward | 979 | (if isearch-forward |