# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 784933402 0
# Node ID 6d82f17895cf1c5c9473aef7f2ff0ce9052bd10a
# Parent  4a06fd6dcbff791f1443b2513372f0646aa085fb
(tags-query-replace): Use query-replace-read-args in interactive spec.

diff -r 4a06fd6dcbff -r 6d82f17895cf lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Tue Nov 15 19:41:36 1994 +0000
+++ b/lisp/progmodes/etags.el	Tue Nov 15 21:03:22 1994 +0000
@@ -1355,8 +1355,7 @@
 with the command \\[tags-loop-continue].
 
 See documentation of variable `tags-file-name'."
-  (interactive
-   "sTags query replace (regexp): \nsTags query replace %s by: \nP")
+  (interactive (query-replace-read-args "Tags query replace (regexp)" t))
   (setq tags-loop-scan (list 'prog1
 			     (list 'if (list 're-search-forward from nil t)
 				   ;; When we find a match, move back