diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-04-25 19:17:18 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-04-25 19:17:18 +0000 |
| commit | daf462b5d4fd1a55b2c68057dc8d7b18b2b17794 (patch) | |
| tree | 96cda49e0fe92dbc6f792a79249f977fb7089124 | |
| parent | c2e303c840b81dd3538a3b1d9c54ef75fc423aca (diff) | |
| download | emacs-daf462b5d4fd1a55b2c68057dc8d7b18b2b17794.tar.gz | |
(tags-query-replace): Add parameters START
and END. Construct a form with additional arguments for
perform-replace.
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index b8d998e16ca..0659c8a5106 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1618,7 +1618,7 @@ See documentation of variable `tags-file-name'." (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 @@ See documentation of variable `tags-file-name'." ;; 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))) |