(tags-table-check-computed-list): Map tags-expand-table-name over lists of

included tables.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 6d4dc28c674..8650a995dd4 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -237,8 +237,9 @@ file the tag was in."
                   (if (tags-included-tables)
                       ;; Insert the included tables into the list we
                       ;; are processing.
-                      (setcdr tables (append (tags-included-tables)
-                                             (cdr tables)))))
+                      (setcdr tables (nconc (mapcar 'tags-expand-table-name
+                                                    (tags-included-tables))
+                                            (cdr tables)))))
               ;; 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.