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

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

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index ce75dfc3cca8724eaaa5dab58683f11dd0d38c88..58b53dc1d476a73a5b20fbb2e5cf54054ca147a3 100644 (file)
--- 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