mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-28 10:51:29 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Roland McGrath 1995-04-09 03:18:11 +00:00
parent c4f57b91f1
commit 2f14fde6d0
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/etags.el
View file

@ -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))))