diff options
| author | Roland McGrath <roland@gnu.org> | 1993-01-21 22:36:48 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-01-21 22:36:48 +0000 |
| commit | 2ae6a918b98cba04ebd3e0b3544f955324114eb0 (patch) | |
| tree | 7a4f3d0307679e620c7645ce3cc279e8561ac158 /lisp | |
| parent | bf349f368718cce5d3122e8b187d6172492997f3 (diff) | |
| download | emacs-2ae6a918b98cba04ebd3e0b3544f955324114eb0.tar.gz | |
(visit-tags-table-buffer): When propagating a change of name after
file-find-noselect, refer to tags-file-name, not the undefined var FILE.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index f94c51b467a..5c058d865e6 100644 --- 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))) |