Mercurial > emacs
changeset 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 | 63b85944e37b |
| children | 53cf5adf7fd1 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
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