(tags-query-replace): C-t

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 0598e00fcc5c52b0c13e2fd38c624cdf75657963..1f97188c6d5b4c438d616c2da02bea8542eb42f2 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1144,7 +1144,7 @@ See documentation of variable `tags-file-name'."
   (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.