diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-01 20:46:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-01 20:46:31 +0000 |
| commit | 149d4fe55c72f75c66257514ea3e0707592b479b (patch) | |
| tree | 923b4e780cf1981a3c50986e7a29e0583a78015f /lisp | |
| parent | 0a20b6841d0534ff4777d5429b657a58047e139b (diff) | |
| download | emacs-149d4fe55c72f75c66257514ea3e0707592b479b.tar.gz emacs-149d4fe55c72f75c66257514ea3e0707592b479b.tar.bz2 emacs-149d4fe55c72f75c66257514ea3e0707592b479b.zip | |
(isearch-*-char): Use the isearch-other-end as new
starting point in both directions.
Diffstat (limited to 'lisp')
| -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." (progn (setq isearch-adjusted t) - (let ((cs (nth (if isearch-forward - 5 ; isearch-other-end - 2) ; saved (point) - (car (cdr isearch-cmds))))) - ;; (car isearch-cmds) is after last search; - ;; (car (cdr isearch-cmds)) is from before it. + ;; Get the isearch-other-end from before the last search. + ;; We want to start from there, + ;; so that we don't retreat farther than that. + ;; (car isearch-cmds) is after last search; + ;; (car (cdr isearch-cmds)) is from before it. + (let ((cs (nth 5 (car (cdr isearch-cmds))))) (setq cs (or cs isearch-barrier)) (goto-char (if isearch-forward |