# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 956690238 0
# Node ID 351e38e6b866b4fdd032ab2759b327f0e8b2410d
# Parent  8cc58b0b674d31c88f6efad1f40cde33dad50343
(tags-query-replace): Add parameters START
and END.  Construct a form with additional arguments for
perform-replace.

diff -r 8cc58b0b674d -r 351e38e6b866 lisp/progmodes/etags.el
--- 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)))