From 3d5c025bf9a655e7ebf7ca3ddcc7ac48db43985b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Aug 2000 02:36:23 +0000
Subject: [PATCH] Fix bug: directory node wasn't being correctly recorded in
 the info history, causing the l command to fail.

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

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index b28df5ebb..a0b97ce78 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: info.scm,v 1.134 2000/03/23 03:19:13 cph Exp $
+;;; $Id: info.scm,v 1.135 2000/08/07 02:36:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -759,7 +759,7 @@ The name may be an abbreviation of the reference name."
       (for-each (lambda (submenu)
 		  (find-dir-node/insert-menu-items buffer submenu))
 		submenus))
-    (car pathnames)))
+    "dir"))
 
 (define (find-dir-node-files buffer)
   (let loop ((directories (buffer-directory-list buffer)) (pathnames '()))
-- 
2.25.1