Mercurial > emacs

changeset 23561:70fafedc3c4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(initialize-new-tags-table): Do not alter find-tag-marker-ring and tags-location-ring.
author Richard M. Stallman <rms@gnu.org>
date Wed, 28 Oct 1998 00:04:28 +0000
parents 6414b7085648
children 5f3243813b18
files lisp/progmodes/etags.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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