# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841610791 0
# Node ID a4c14fa6cb9dd1608799e529bcc5c284da1d0dcd
# Parent  63b85944e37bdb8d229ef9268810c45d657f205b
(isearch-*-char): Use the isearch-other-end as new
starting point in both directions.

diff -r 63b85944e37b -r a4c14fa6cb9d lisp/isearch.el
--- 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