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

correct order.
This commit is contained in:
Miles Bader 2001-08-28 09:00:21 +00:00
parent eaaa65b092
commit 43744cb9bd
2 changed files with 6 additions and 1 deletions

View file

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

View file

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