1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 0598e00fcc5..1f97188c6d5 100644
--- 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.