diff 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
line wrap: on
line diff
--- 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