From cf9c370b8098b502710b786346eaa5ab019684c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Mar 1998 22:06:53 +0000
Subject: [PATCH] Reset tag-table locations after reading dir file.

---
 v7/src/edwin/info.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index e6126b01e..c6c5018ad 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: info.scm,v 1.129 1998/03/08 07:13:33 cph Exp $
+;;;	$Id: info.scm,v 1.130 1998/03/11 22:06:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -776,6 +776,8 @@ The name may be an abbreviation of the reference name."
     (if (null? pathnames)
 	(editor-error "Can't find the Info directory node."))
     (read-buffer buffer (car pathnames) #t)
+    (set-variable! info-tag-table-start #f)
+    (set-variable! info-tag-table-end #f)
     (let ((submenus (append-map find-dir-node-menus (cdr pathnames))))
       (find-dir-node/insert-node-names buffer submenus)
       (for-each (lambda (submenu)
-- 
2.25.1