diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-07-06 12:31:24 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-07-06 12:31:24 +0000 |
commit | ff36c26baf8f886f6d1925bbe8e4d970e8804149 (patch) | |
tree | 47a1bd616a0083102f9584a5dddc95cba48170ef /lisp/replace.el | |
parent | b7da1d4cf0a9bb437ba7ec721904926062631e9c (diff) | |
download | emacs-ff36c26baf8f886f6d1925bbe8e4d970e8804149.tar.gz |
(query-replace-regexp-eval): Fix last change.
Diffstat (limited to 'lisp/replace.el')
-rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |