Commit 5a1f9fcf authored by Juri Linkov's avatar Juri Linkov
Browse files

(isearch-fallback): Check for `(car previous)'

before calling `isearch-other-end-state'.
parent 3c916d65
2005-03-17 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-fallback): Check for `(car previous)'
before calling `isearch-other-end-state'.
2005-03-17 Kim F. Storm <storm@cua.dk>
 
* simple.el (move-beginning-of-line): Move to beginning of buffer
......
......@@ -1458,8 +1458,10 @@ barrier."
;; `stack' now refers the most recent valid regexp that is not at
;; all optional in its last term. Now dig one level deeper and find
;; what matched before that.
(let ((last-other-end (or (isearch-other-end-state (car previous))
isearch-barrier)))
(let ((last-other-end
(or (and (car previous)
(isearch-other-end-state (car previous)))
isearch-barrier)))
(goto-char (if isearch-forward
(max last-other-end isearch-barrier)
(min last-other-end isearch-barrier)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment