# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 728004639 0
# Node ID 7fc396d271300f95a4aac4a42d704f8b19b4b2b7
# Parent  2f28485111759656864799d46f3376c8fb1f764b
(tags-query-replace): C-t

diff -r 2f2848511175 -r 7fc396d27130 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Mon Jan 25 20:12:52 1993 +0000
+++ b/lisp/progmodes/etags.el	Mon Jan 25 23:30:39 1993 +0000
@@ -1144,7 +1144,7 @@
   (interactive
    "sTags query replace (regexp): \nsTags query replace %s by: \nP")
   (setq tags-loop-scan (list 'prog1
-			     (list 'if (list 're-search-forward form nil t)
+			     (list 'if (list 're-search-forward from nil t)
 				   ;; When we find a match, move back
 				   ;; to the beginning of it so perform-replace
 				   ;; will see it.