366 |
(defvar isearch-wrapped nil) ; Searching restarted from the top (bottom). |
(defvar isearch-wrapped nil) ; Searching restarted from the top (bottom). |
367 |
(defvar isearch-barrier 0) |
(defvar isearch-barrier 0) |
368 |
(defvar isearch-just-started nil) |
(defvar isearch-just-started nil) |
369 |
|
(defvar isearch-start-hscroll 0) ; hscroll when starting the search. |
370 |
|
|
371 |
; case-fold-search while searching. |
; case-fold-search while searching. |
372 |
; either nil, t, or 'yes. 'yes means the same as t except that mixed |
; either nil, t, or 'yes. 'yes means the same as t except that mixed |
558 |
isearch-other-end nil |
isearch-other-end nil |
559 |
isearch-small-window nil |
isearch-small-window nil |
560 |
isearch-just-started t |
isearch-just-started t |
561 |
|
isearch-start-hscroll (window-hscroll) |
562 |
|
|
563 |
isearch-opoint (point) |
isearch-opoint (point) |
564 |
search-ring-yank-pointer nil |
search-ring-yank-pointer nil |
638 |
(window-hscroll)) |
(window-hscroll)) |
639 |
(set-window-hscroll (selected-window) 0)) |
(set-window-hscroll (selected-window) 0)) |
640 |
(other-window 1)) |
(other-window 1)) |
641 |
(goto-char found-point))) |
(goto-char found-point)) |
642 |
(if isearch-other-end |
;; Keep same hscrolling as at the start of the search when possible |
643 |
|
(let ((current-scroll (window-hscroll))) |
644 |
|
(set-window-hscroll (selected-window) isearch-start-hscroll) |
645 |
|
(unless (pos-visible-in-window-p) |
646 |
|
(set-window-hscroll (selected-window) current-scroll)))) |
647 |
|
(if isearch-other-end |
648 |
(if (< isearch-other-end (point)) ; isearch-forward? |
(if (< isearch-other-end (point)) ; isearch-forward? |
649 |
(isearch-highlight isearch-other-end (point)) |
(isearch-highlight isearch-other-end (point)) |
650 |
(isearch-highlight (point) isearch-other-end)) |
(isearch-highlight (point) isearch-other-end)) |