(visit-tags-table-buffer): When propagating a change of name after

file-find-noselect, refer to tags-file-name, not the undefined var FILE.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index f94c51b467a..5c058d865e6 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -416,7 +416,7 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
           (or (string= tags-file-name buffer-file-name)
               ;; find-file-noselect has changed the file name.
               ;; Propagate the change to tags-file-name and tags-table-list.
-              (let ((tail (member file tags-table-list)))
+              (let ((tail (member tags-file-name tags-table-list)))
                 (if tail
                     (setcar tail buffer-file-name))
                 (setq tags-file-name buffer-file-name)))