mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
before calling `isearch-other-end-state'.
This commit is contained in:
Juri Linkov 2005-03-17 19:22:55 +00:00
parent 3c916d6555
commit 5a1f9fcfea
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

6
lisp/isearch.el
View File

@ -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)))