(next-file): Handle empty list returned by (tags-table-files).

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e572d33..9c76c6b 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1268,7 +1268,9 @@ if the file was newly read in, the value is the filename."
                 (setq tail (cdr tail)))
               ;; Use a copy so the next loop iteration will not modify the
               ;; list later returned by (tags-table-files).
-              (setcdr tail (copy-sequence (tags-table-files)))))))
+              (if tail
+                  (setcdr tail (copy-sequence (tags-table-files)))
+                (setq next-file-list (copy-sequence (tags-table-files)))))))
        (t
         ;; Initialize the list by evalling the argument.
         (setq next-file-list (eval initialize))))