# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 909533068 0
# Node ID 70fafedc3c4c2d219a39109f7d63f80107772733
# Parent  6414b7085648714512c8f8e506b591f28800f9c4
(initialize-new-tags-table):
Do not alter find-tag-marker-ring and tags-location-ring.

diff -r 6414b7085648 -r 70fafedc3c4c lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Tue Oct 27 23:46:26 1998 +0000
+++ b/lisp/progmodes/etags.el	Wed Oct 28 00:04:28 1998 +0000
@@ -190,8 +190,10 @@
   (set (make-local-variable 'tags-table-files) nil)
   (set (make-local-variable 'tags-completion-table) nil)
   (set (make-local-variable 'tags-included-tables) nil)
-  (setq find-tag-marker-ring (make-ring find-tag-marker-ring-length))
-  (setq tags-location-ring (make-ring find-tag-marker-ring-length))
+  ;; We used to initialize find-tag-marker-ring and tags-location-ring
+  ;; here, to new empty rings.  But that is wrong, because those
+  ;; are global.
+
   ;; Value is t if we have found a valid tags table buffer.
   (let ((hooks tags-table-format-hooks))
     (while (and hooks