# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 725236925 0
# Node ID 2dccfada2107ece7e72cd00429ca0282377e5002
# Parent  4023bea27d64ceb380ce1a91c51f07b0e579e409
(visit-tags-table-buffer): When picking a table and using tags-table-list,
skip over nonexistent files in the list.

diff -r 4023bea27d64 -r 2dccfada2107 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Dec 24 22:33:11 1992 +0000
+++ b/lisp/progmodes/etags.el	Thu Dec 24 22:42:05 1992 +0000
@@ -369,7 +369,15 @@
 		     (not (tags-table-list-member tags-file-name))
 		     tags-file-name)
 		;; Fifth, use the user variable giving the table list.
-		(car tags-table-list)
+		;; Find the first element of the list that actually exists.
+		(let ((list tags-table-list)
+		      file)
+		  (while (and list
+			      (setq file (tags-expand-table-name (car list)))
+			      (not (get-file-buffer file))
+			      (not (file-exists-p file)))
+		    (setq list (cdr list)))
+		  (car list))
 		;; Finally, prompt the user for a file name.
 		(expand-file-name
 		 (read-file-name "Visit tags table: (default TAGS) "