Mercurial > emacs
changeset 28704:351e38e6b866
(tags-query-replace): Add parameters START
and END. Construct a form with additional arguments for
perform-replace.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 25 Apr 2000 19:17:18 +0000 |
| parents | 8cc58b0b674d |
| children | 7c903a96e495 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Tue Apr 25 19:14:45 2000 +0000 +++ b/lisp/progmodes/etags.el Tue Apr 25 19:17:18 2000 +0000 @@ -1618,7 +1618,7 @@ (tags-loop-continue (or file-list-form t)))) ;;;###autoload -(defun tags-query-replace (from to &optional delimited file-list-form) +(defun tags-query-replace (from to &optional delimited start end file-list-form) "Query-replace-regexp FROM with TO through all files listed in tags table. Third arg DELIMITED (prefix arg) means replace only word-delimited matches. If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace @@ -1634,7 +1634,7 @@ ;; will see it. '(goto-char (match-beginning 0)))) tags-loop-operate (list 'perform-replace - (list 'quote from) (list 'quote to) + (list 'quote from) (list 'quote to) nil nil t t (list 'quote delimited))) (tags-loop-continue (or file-list-form t)))