(query-replace-regexp-eval): Return args from `interactive' form in

correct order.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20bb5312662..c57cfa1c69c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-28  Miles Bader  <miles@gnu.org>
+
+        * replace.el (query-replace-regexp-eval): Return args from
+        `interactive' form in correct order.
+
 2001-08-28  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * mouse.el (mouse-buffer-menu): If the buffer menu is split by
diff --git a/lisp/replace.el b/lisp/replace.el
index e9bd75b9f88..e0b815adfa1 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -170,7 +170,7 @@ Fourth and fifth arg START and END specify the region to operate on."
      ;; We make TO a list because replace-match-string-symbols requires one,
      ;; and the user might enter a single token.
      (replace-match-string-symbols to)
-     (list from (car to) start end current-prefix-arg)))
+     (list from (car to) current-prefix-arg start end)))
   (perform-replace regexp (cons 'replace-eval-replacement to-expr)
                    start end t t delimited))