From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 Jul 2004 12:31:24 +0000 (+0000)
Subject: (query-replace-regexp-eval): Fix last change.
X-Git-Tag: ttn-vms-21-2-B4~5535
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc0aea1a20e2afff0524de88f4e708f4e0fc0bae;p=emacs.git

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

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