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

correct order.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20bb5312662bcc26e5bdb7cefbb263c5f45d219a..c57cfa1c69c6c1b3ddd5d91fd27b5f58e218fa72 100644 (file)
--- 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 e9bd75b9f88547c286bcd3c3ae06c7e111ab5f8a..e0b815adfa1300cbbd01044aaa733f43a20cfd18 100644 (file)
--- 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))