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

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

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index f94c51b467a40d7511008fa61f4da0938b728989..5c058d865e66008e218d6c0953543c1ac0446b19 100644 (file)
--- 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)))