Mercurial > emacs
diff lisp/progmodes/etags.el @ 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 |
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)))