# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 727655808 0
# Node ID 1059b972916c1d974b966432231ec4194e8c5d7b
# Parent  da47cfb7624ef744060ef01a31861dee988dcbbe
(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 -r da47cfb7624e -r 1059b972916c lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Tue Jan 19 21:05:15 1993 +0000
+++ b/lisp/progmodes/etags.el	Thu Jan 21 22:36:48 1993 +0000
@@ -416,7 +416,7 @@
 	  (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)))