# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 815081104 0
# Node ID c26492df62185f0f26cbcb00c2bb268373d75b05
# Parent  53bbedbefdb2144b5ec0e757412ba4b21597a424
(select-tags-table): Don't modify the value of tags-table-list.

diff -r 53bbedbefdb2 -r c26492df6218 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Mon Oct 30 19:22:23 1995 +0000
+++ b/lisp/progmodes/etags.el	Mon Oct 30 19:25:04 1995 +0000
@@ -1461,7 +1461,7 @@
 	  (prin1 tags-file-name (current-buffer)) ;invisible
 	  (insert "\n")))
     (setq set-list (delete tags-file-name
-			   (apply 'nconc (cons tags-table-list
+			   (apply 'nconc (cons (copy-sequence tags-table-list)
 					       (mapcar 'copy-sequence
 						       tags-table-set-list)))))
     (while set-list