From 43744cb9bdab4f67cfe878c9578932523db77a93 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 28 Aug 2001 09:00:21 +0000 Subject: [PATCH] (query-replace-regexp-eval): Return args from `interactive' form in correct order. --- lisp/ChangeLog | 5 +++++ lisp/replace.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * replace.el (query-replace-regexp-eval): Return args from + `interactive' form in correct order. + 2001-08-28 Eli Zaretskii * 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)) -- 2.39.5