From cc0aea1a20e2afff0524de88f4e708f4e0fc0bae Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 6 Jul 2004 12:31:24 +0000 Subject: [PATCH] (query-replace-regexp-eval): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/replace.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 92552debee2..32abe4c4ae7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-07-06 Stefan + + * replace.el (query-replace-regexp-eval): Fix last change. + 2004-07-05 Stefan * replace.el (query-replace-descr): New fun. diff --git a/lisp/replace.el b/lisp/replace.el index a7c8b859402..60c28d6c48a 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -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))