# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 716692370 0
# Node ID 2a92ddfaf6baed66a9fa0da87b50bc847c1ec72a
# Parent  e356f6701b9e3d0fd552d49d8c3863f06252037f
entered into RCS

diff -r e356f6701b9e -r 2a92ddfaf6ba lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Sep 16 14:52:41 1992 +0000
+++ b/lisp/progmodes/etags.el	Thu Sep 17 01:12:50 1992 +0000
@@ -305,10 +305,7 @@
 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)
-	 ;; 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))
+  (cond ((eq cont 'same))
 
 	(cont
 	 (if (tags-next-table)
@@ -340,7 +337,7 @@
 
   (setq tags-file-name (tags-expand-table-name tags-file-name))
 
-  (if (and cont (null tags-table-list-pointer))
+  (if (and (eq cont t) (null tags-table-list-pointer))
       ;; All out of tables.
       nil
 
@@ -411,7 +408,10 @@
 		      (setq elt tags-table-list))))
 
 	      (setq tags-table-list-started-at elt
-		    tags-table-list-pointer elt))))
+		    tags-table-list-pointer elt)))
+
+	  ;; Return of t says the tags table is valid.
+	  t)
 
       ;; The buffer was not valid.  Don't use it again.
       (kill-local-variable 'tags-file-name)