From 931f525c9e95ffb9660a77e053ec409357fc4a27 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Oct 1998 00:04:28 +0000 Subject: [PATCH] (initialize-new-tags-table): Do not alter find-tag-marker-ring and tags-location-ring. --- lisp/progmodes/etags.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.39.2