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)))))) |