From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Oct 1998 00:04:28 +0000 (+0000)
Subject: (initialize-new-tags-table):
X-Git-Tag: emacs-20.4~1388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=931f525c9e95ffb9660a77e053ec409357fc4a27;p=emacs.git

(initialize-new-tags-table):
Do not alter find-tag-marker-ring and tags-location-ring.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 816fc2054fa..8f2d2006733 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -190,8 +190,10 @@ One argument, the tag info returned by `snarf-tag-function'.")
   (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