# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 776561679 0
# Node ID be778f8834a5e0a5356b9e4a7b7dae3afec76338
# Parent  6d2f0901efe939247cb79e339beb7650618f4556
(tags-table-including): Inside loop: if CORE-ONLY skip all consecutive
tables not in core; else extend computed list.

diff -r 6d2f0901efe9 -r be778f8834a5 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Aug 10 20:32:38 1994 +0000
+++ b/lisp/progmodes/etags.el	Wed Aug 10 23:34:39 1994 +0000
@@ -341,14 +341,14 @@
     ;; Loop over the list, looking for a table containing tags for THIS-FILE.
     (while (and (not found)
 		tables)
-      (and (not core-only)
-	   (eq (nth 1 tables) t)
-	   ;; This table has not been read into core yet.  Read it in now.
-	   (tags-table-extend-computed-list))
 
-      (if (eq (nth 1 tables) t)
-	  ;; Skip this table not in core.
-	  (setq tables (cdr (cdr tables))))
+      (if core-only
+	  ;; Skip tables not in core.
+	  (while (eq (nth 1 tables) t)
+	    (setq tables (cdr (cdr tables))))
+	(if (eq (nth 1 tables) t)
+	    ;; This table has not been read into core yet.  Read it in now.
+	    (tags-table-extend-computed-list)))
 
       (if tables
 	  ;; Select the tags table buffer and get the file list up to date.