From 149d4fe55c72f75c66257514ea3e0707592b479b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Sep 1996 20:46:31 +0000 Subject: [PATCH] (isearch-*-char): Use the isearch-other-end as new starting point in both directions. --- lisp/isearch.el | 12 ++++++------ 1 file 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 -- 2.39.2