(query-replace-regexp-eval): Return args from `interactive' form in
correct order.
This commit is contained in:
parent
eaaa65b092
commit
43744cb9bd
2 changed files with 6 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue