Mercurial > emacs
changeset 56360:a9b695d281d4
(query-replace-regexp-eval): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 Jul 2004 12:31:24 +0000 |
| parents | a6ce6b01d52d |
| children | 1f6748b338da |
| files | lisp/ChangeLog lisp/replace.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 06 05:08:57 2004 +0000 +++ b/lisp/ChangeLog Tue Jul 06 12:31:24 2004 +0000 @@ -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.
--- a/lisp/replace.el Tue Jul 06 05:08:57 2004 +0000 +++ b/lisp/replace.el Tue Jul 06 12:31:24 2004 +0000 @@ -287,6 +287,7 @@ 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 @@ (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))