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

[bpt/emacs.git] / lisp / isearch.el

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 6361177..846d749 100644 (file)
--- a/lisp/isearch.el
+++ b/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