From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Sep 1996 20:46:31 +0000 (+0000)
Subject: (isearch-*-char): Use the isearch-other-end as new
X-Git-Tag: emacs-20.1~3899
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=149d4fe55c72f75c66257514ea3e0707592b479b;p=emacs.git

(isearch-*-char): Use the isearch-other-end as new
starting point in both directions.
---

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