(visit-tags-table-buffer): When trying to pick table, call

tags-expand-table-name on alternatives that might be nil.
(tags-table-files): Don't call visit-tags-table-buffer; assume we are there.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 222114587f3a0c2e7c884b18b83f1b0e9b8ec21d..76a1da858c6a2f0cefdd781670cb4e28a16d8da2 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -324,11 +324,14 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
                   ;; tags for the current buffer's file.
                   ;; If one is found, the lists will be frobnicated,
                   ;; and CONT will be set non-nil so we don't do it below.
-                  (save-excursion
-                    (car (tags-table-including buffer-file-name
-                                               tags-table-list)))
-                  (car tags-table-list)
-                  tags-file-name
+                  (let ((found (save-excursion
+                                 (tags-table-including buffer-file-name
+                                                       tags-table-list))))
+                    (and found
+                         ;; Expand it so it won't be nil.
+                         (tags-expand-table-name (car found))))
+                  (tags-expand-table-name (car tags-table-list))
+                  (tags-expand-table-name tags-file-name)
                   (expand-file-name
                    (read-file-name "Visit tags table: (default TAGS) "
                                    default-directory
@@ -417,7 +420,7 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
       (kill-local-variable 'tags-file-name)
       (setq tags-file-name nil)
       (error "File %s is not a valid tags table" buffer-file-name))))
-
+\f
 (defun file-of-tag ()
   "Return the file name of the file whose tags point is within.
 Assumes the tags table is the current buffer.
@@ -428,11 +431,9 @@ File name returned is relative to tags table file's directory."
 (defun tags-table-files ()
   "Return a list of files in the current tags table.
 File names returned are absolute."
-  (save-excursion
-    (visit-tags-table-buffer)
-    (or tags-table-files
-       (setq tags-table-files
-             (funcall tags-table-files-function)))))
+  (or tags-table-files
+      (setq tags-table-files
+           (funcall tags-table-files-function))))
 
 (defun tags-included-tables ()
   "Return a list of tags tables included by the current table."
@@ -473,7 +474,7 @@ File names returned are absolute."
     (if (eq what t)
        (all-completions string (tags-completion-table) predicate)
       (try-completion string (tags-completion-table) predicate))))
-
+\f
 ;; Return a default tag to search for, based on the text at point.
 (defun find-tag-default ()
   (save-excursion
@@ -940,6 +941,7 @@ if the file was newly read in, the value is the filename."
         (setq next-file-list (tags-table-files))))
   (or next-file-list
       (save-excursion
+       ;; Get the files from the next tags table.
        ;; When doing (visit-tags-table-buffer t),
        ;; the tags table buffer must be current.
        (if (and (visit-tags-table-buffer 'same)