Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
16044:63b85944e37b | 16045:a4c14fa6cb9d |
---|---|
966 (interactive) | 966 (interactive) |
967 (if isearch-regexp | 967 (if isearch-regexp |
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 |
980 (max cs isearch-barrier) | 980 (max cs isearch-barrier) |
981 (min cs isearch-barrier)))))) | 981 (min cs isearch-barrier)))))) |