Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 1806:da47cfb7624e | 1807:1059b972916c |
|---|---|
| 414 (initialize-new-tags-table))) | 414 (initialize-new-tags-table))) |
| 415 (set-buffer (find-file-noselect tags-file-name)) | 415 (set-buffer (find-file-noselect tags-file-name)) |
| 416 (or (string= tags-file-name buffer-file-name) | 416 (or (string= tags-file-name buffer-file-name) |
| 417 ;; find-file-noselect has changed the file name. | 417 ;; find-file-noselect has changed the file name. |
| 418 ;; Propagate the change to tags-file-name and tags-table-list. | 418 ;; Propagate the change to tags-file-name and tags-table-list. |
| 419 (let ((tail (member file tags-table-list))) | 419 (let ((tail (member tags-file-name tags-table-list))) |
| 420 (if tail | 420 (if tail |
| 421 (setcar tail buffer-file-name)) | 421 (setcar tail buffer-file-name)) |
| 422 (setq tags-file-name buffer-file-name))) | 422 (setq tags-file-name buffer-file-name))) |
| 423 (initialize-new-tags-table)) | 423 (initialize-new-tags-table)) |
| 424 | 424 |