mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(query-replace-regexp-eval): Fix last change.

Browse Source
This commit is contained in:
Stefan Monnier 2004-07-06 12:31:24 +00:00
parent fa164e6ae7
commit cc0aea1a20
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2004-07-06 Stefan <monnier@iro.umontreal.ca>
* replace.el (query-replace-regexp-eval): Fix last change.
2004-07-05 Stefan <monnier@iro.umontreal.ca>
* replace.el (query-replace-descr): New fun.

3
lisp/replace.el
View File

@ -287,6 +287,7 @@ Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace
only matches that are surrounded by word boundaries.
Fourth and fifth arg START and END specify the region to operate on."
(interactive
(progn
(barf-if-buffer-read-only)
(let* ((from
;; Let-bind the history var to disable the "foo -> bar" default.
@ -305,7 +306,7 @@ Fourth and fifth arg START and END specify the region to operate on."
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end)))))
(region-end))))))
(perform-replace regexp (cons 'replace-eval-replacement to-expr)
t 'literal delimited nil nil start end))