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 | cc0aea1a20e2afff0524de88f4e708f4e0fc0bae (patch) | |
| tree | cc1e3b52a42b2d5fc4d508022c0560bcb4554b86 /lisp/replace.el | |
| parent | fa164e6ae7aa9a26a9a5b08400175becaa0e7724 (diff) | |
| download | emacs-cc0aea1a20e2afff0524de88f4e708f4e0fc0bae.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)) |