comparison lisp/progmodes/etags.el @ 1724:2dccfada2107

(visit-tags-table-buffer): When picking a table and using tags-table-list, skip over nonexistent files in the list.

1723:4023bea27d64

		;; already in tags-table-list.
		(and tags-file-name
		     (not (tags-table-list-member tags-file-name))
		     tags-file-name)
		;; Fifth, use the user variable giving the table list.
		(car tags-table-list)
		;; Finally, prompt the user for a file name.
		(expand-file-name
		 (read-file-name "Visit tags table: (default TAGS) "
				 default-directory
				 "TAGS"

1724:2dccfada2107

		;; already in tags-table-list.
		(and tags-file-name
		     (not (tags-table-list-member tags-file-name))
		     tags-file-name)
		;; Fifth, use the user variable giving the 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) "
				 default-directory
				 "TAGS"