Mercurial > emacs
diff lisp/isearch.el @ 16045:a4c14fa6cb9d
(isearch-*-char): Use the isearch-other-end as new
starting point in both directions.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 01 Sep 1996 20:46:31 +0000 |
parents | 30d2dbe3372e |
children | 2a6b69865ba2 |
line wrap: on
line diff
--- a/lisp/isearch.el Sun Sep 01 20:44:46 1996 +0000 +++ b/lisp/isearch.el Sun Sep 01 20:46:31 1996 +0000 @@ -968,12 +968,12 @@ (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