(tags-table-extend-computed-list): In loop processing list of included

tables to incorporate it, advance TABLES to its cdr at end of loop.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index ce75dfc3cca..58b53dc1d47 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -273,7 +273,8 @@ file the tag was in."
                 ;; This table is not in core yet.  Insert a placeholder
                 ;; saying we must read it into core to check for included
                 ;; tables before searching the next table in the list.
-                (setq computed (cons t computed))))
+                (setq computed (cons t computed)))
+              (setq tables (cdr tables)))
             (setq computed (nreverse computed))
             ;; COMPUTED now contains the list of included tables (and
             ;; tables included by them, etc.).  Now splice this into the