Mercurial > emacs
diff lisp/progmodes/etags.el @ 1152:d9733ad5643a
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 15 Sep 1992 22:52:46 +0000 |
| parents | 3dd95c0296ef |
| children | 2a92ddfaf6ba |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Tue Sep 15 21:35:53 1992 +0000 +++ b/lisp/progmodes/etags.el Tue Sep 15 22:52:46 1992 +0000 @@ -305,7 +305,10 @@ If arg is nil or absent, choose a first buffer from information in `tags-file-name', `tags-table-list', `tags-table-list-pointer'. Returns t if it visits a tags table, or nil if there are no more in the list." - (cond ((eq cont 'same)) + (cond ((eq cont 'same) + ;; We don't need to look for a setting for tags-file-name, + ;; but other than that we should behave just as if passed nil. + (setq cont nil)) (cont (if (tags-next-table) @@ -937,7 +940,7 @@ (setq next-file-list (tags-table-files)))) (or next-file-list (save-excursion - ;; When doing (visit-tag-table-buffer t), + ;; When doing (visit-tags-table-buffer t), ;; the tags table buffer must be current. (if (and (visit-tags-table-buffer 'same) (visit-tags-table-buffer t))