From: Roland McGrath <roland@gnu.org>
Date: Tue, 15 Nov 1994 21:03:22 +0000 (+0000)
Subject: (tags-query-replace): Use query-replace-read-args in interactive spec.
X-Git-Tag: emacs-19.34~5914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c833060e3617af13f28c2affc2d61d6d7947b31;p=emacs.git

(tags-query-replace): Use query-replace-read-args in interactive spec.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 0ed8cd2f118..6c270d90222 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1355,8 +1355,7 @@ If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace
 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