comparison lisp/isearch.el @ 91073:4bc33ffdda1a

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 902-908) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 131-137) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 261-262) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-278

91072:74ab3ea909f9

	    (when (and pos2
		       (or (not pos1)
			   (if isearch-forward (< pos2 pos1) (> pos2 pos1))))
	      (setq pos1 pos2)
	      (set-match-data match-data)))))
    (if pos1
	(goto-char pos1))
    pos1))

(defun isearch-search ()
  ;; Do the search with the current search string.
  (if isearch-message-function

91073:4bc33ffdda1a

	    (when (and pos2
		       (or (not pos1)
			   (if isearch-forward (< pos2 pos1) (> pos2 pos1))))
	      (setq pos1 pos2)
	      (set-match-data match-data)))))
    (when pos1
      ;; When using multiple buffers isearch, switch to the new buffer here,
      ;; because `save-excursion' above doesn't allow doing it inside funcall.
      (if (and isearch-buffers-next-buffer-function
	       (buffer-live-p isearch-buffers-current-buffer))
	  (switch-to-buffer isearch-buffers-current-buffer))
      (goto-char pos1))
    pos1))

(defun isearch-search ()
  ;; Do the search with the current search string.
  (if isearch-message-function