# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 716597566 0
# Node ID d9733ad5643afe93c1c678f241844331d7a5d271
# Parent  3dd95c0296ef2866536f74e42328135e31216e5a
*** empty log message ***

diff -r 3dd95c0296ef -r d9733ad5643a lisp/progmodes/etags.el
--- 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))