(isearch-query-replace): Use (mark) instead of

isearch-opoint if mark is active in transient-mark-mode.

lisp/ChangeLog

+2005-12-14  Juri Linkov  <juri@jurta.org>
+
+	* isearch.el (isearch-query-replace): Use (mark) instead of
+	isearch-opoint if mark is active in transient-mark-mode.
+
 2005-12-14  Aaron S. Hawley  <Aaron.Hawley@uvm.edu>
 	* isearch.el (isearch-query-replace): Check for isearch-other-end.

lisp/isearch.el

@@ -1227,7 +1227,7 @@ Use `isearch-exit' to quit without signaling."
     (if (and isearch-other-end
 	     (< isearch-other-end (point))
              (not (and transient-mark-mode mark-active
-                       (< isearch-opoint (point)))))
+                       (< (mark) (point)))))
         (goto-char isearch-other-end))
     (set query-replace-from-history-variable
          (cons isearch-string