mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(isearch-*-char): Use the isearch-other-end as new

Browse Source 
starting point in both directions.
This commit is contained in:
Richard M. Stallman 1996-09-01 20:46:31 +00:00
parent 0a20b6841d
commit 149d4fe55c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/isearch.el
View File

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