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

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e572d3361f7..9c76c6b28cd 100644
--- 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))))