martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
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))