(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 8b3fe4272aac2476151ee22b6efb6a28e71365c3..4df0235ee09a1cc76433b218ff72bfc4dcb69f98 100644 (file)
--- 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