changeset 8040:b35d46349f46

(visit-tags-table-buffer): Don't take car of return frmo tags-table-including.

--- a/lisp/progmodes/etags.el	Fri Jun 24 00:34:47 1994 +0000
+++ b/lisp/progmodes/etags.el	Fri Jun 24 08:07:57 1994 +0000
@@ -331,10 +331,10 @@
 
 ;; Subroutine of visit-tags-table-buffer.  Search the current tags tables
 ;; for one that has tags for THIS-FILE (or that includes a table that
-;; does).  Returns the tail of `tags-table-computed-list' whose car is a
-;; table listing THIS-FILE; if the table is one included by another table,
-;; it is the master table that we return.  If CORE-ONLY is non-nil, check
-;; only tags tables that are already in buffers--don't visit any new files.
+;; does).  Return the name of the first table table listing THIS-FILE; if
+;; the table is one included by another table, it is the master table that
+;; we return.  If CORE-ONLY is non-nil, check only tags tables that are
+;; already in buffers--don't visit any new files.
 (defun tags-table-including (this-file core-only)
   (let ((tables tags-table-computed-list)
 	(found nil))
@@ -439,12 +439,12 @@
 		;; be frobnicated, and CONT will be set non-nil so we don't
 		;; do it below.
 		(and buffer-file-name
-		     (car (or 
-			   ;; First check only tables already in buffers.
-			   (tags-table-including buffer-file-name t)
-			   ;; Since that didn't find any, now do the
-			   ;; expensive version: reading new files.
-			   (tags-table-including buffer-file-name nil))))
+		     (or 
+		      ;; First check only tables already in buffers.
+		      (tags-table-including buffer-file-name t)
+		      ;; Since that didn't find any, now do the
+		      ;; expensive version: reading new files.
+		      (tags-table-including buffer-file-name nil)))
 		;; Fourth, use the user variable tags-file-name, if it is
 		;; not already in the current list.
 		(and tags-file-name