changeset 1807:1059b972916c

(visit-tags-table-buffer): When propagating a change of name after file-find-noselect, refer to tags-file-name, not the undefined var FILE.
author Roland McGrath <roland@gnu.org>
date Thu, 21 Jan 1993 22:36:48 +0000
parents da47cfb7624e
children 60685747963c
files lisp/progmodes/etags.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))