From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Mar 1998 22:06:53 +0000 (+0000)
Subject: Reset tag-table locations after reading dir file.
X-Git-Tag: 20090517-FFI~4826
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cf9c370b8098b502710b786346eaa5ab019684c7;p=mit-scheme.git

Reset tag-table locations after reading dir file.
---

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)