From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 Oct 1995 19:25:04 +0000 (+0000)
Subject: (select-tags-table): Don't modify the value of tags-table-list.
X-Git-Tag: emacs-19.34~2519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9993b5610cd7c82669de43fbad0bc3d022450b77;p=emacs.git

(select-tags-table): Don't modify the value of tags-table-list.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8650a995dd4..2b4a876e494 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1461,7 +1461,7 @@ see the doc of that variable if you want to add names to the list."
 	  (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