1458 |
;; `stack' now refers the most recent valid regexp that is not at |
;; `stack' now refers the most recent valid regexp that is not at |
1459 |
;; all optional in its last term. Now dig one level deeper and find |
;; all optional in its last term. Now dig one level deeper and find |
1460 |
;; what matched before that. |
;; what matched before that. |
1461 |
(let ((last-other-end (or (isearch-other-end-state (car previous)) |
(let ((last-other-end |
1462 |
isearch-barrier))) |
(or (and (car previous) |
1463 |
|
(isearch-other-end-state (car previous))) |
1464 |
|
isearch-barrier))) |
1465 |
(goto-char (if isearch-forward |
(goto-char (if isearch-forward |
1466 |
(max last-other-end isearch-barrier) |
(max last-other-end isearch-barrier) |
1467 |
(min last-other-end isearch-barrier))) |
(min last-other-end isearch-barrier))) |