From: Roland McGrath <roland@gnu.org>
Date: Mon, 9 Oct 1995 18:00:54 +0000 (+0000)
Subject: (tags-table-check-computed-list): Map tags-expand-table-name over lists of
X-Git-Tag: emacs-19.34~2695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1c7e43439f490bbc186a2f0137fc450819a9ea0;p=emacs.git

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

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.