From: Miles Bader <miles@gnu.org>
Date: Tue, 28 Aug 2001 09:00:21 +0000 (+0000)
Subject: (query-replace-regexp-eval): Return args from `interactive' form in
X-Git-Tag: emacs-pretest-21.0.105~55
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43744cb9bdab4f67cfe878c9578932523db77a93;p=emacs.git

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

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))