Added TechInfo mode (techinfo.scm) as an autoload.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 57a6c6641b312cd6a23e9dbee800e59247fecace..09d6440bff776fd0b45d74504126731c36c8910d 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.28 1991/11/26 20:10:33 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.29 1992/01/10 18:52:50 bal Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -177,6 +177,7 @@ MIT in each case. |#
                "simple"
                "syntax"
                "tags"
+               "techinfo"
                "telnet"
                "texcom"
                "things"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index d8753f4a27f1b4fe6e49e4c2fab3b360dbd880b4..bc10f265970bd6dc16bf92cc612b945869af3657 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -197,6 +197,8 @@
               edwin-syntax-table)
     ("tags"    (edwin tags)
               edwin-syntax-table)
+    ("techinfo"   (edwin)
+              edwin-syntax-table)
     ("telnet"   (edwin)
               edwin-syntax-table)
     ("termcap" (edwin console-screen)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 1fdf99cce34aa20bdaa39a37ceafa03a662477c5..413068d175fa61c8f29d72ee2c9585d41ed9f2ed 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.71 1992/01/09 17:54:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.72 1992/01/10 18:54:57 bal Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -87,6 +87,7 @@ MIT in each case. |#
         "scrcom"                       ; screen commands
         "sercom"                       ; search commands
         "shell"                        ; shell subprocess commands
+        "techinfo"                     ; techinfo commands
         "telnet"                       ; telnet subprocess commands
         "texcom"                       ; text commands
         "wincom"                       ; window commands

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index c5ed9d704eb1cc75be2d3ab0aab09ef0d0ac9eb1..5a22ce5852c2f72db2c73a93284c84c3185c9bbc 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.13 1991/10/26 21:10:56 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.14 1992/01/10 18:52:19 bal Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -47,6 +47,15 @@
 (declare (usual-integrations))
 \f
 ;;;; Major Mode Libraries
+(define-library 'TECHINFO-MODE
+  '("techinfo" (EDWIN)))
+
+(define-autoload-major-mode 'techinfo 'fundamental "TechInfo" 'TECHINFO-MODE
+  "Mode for accessing the TechInfo database.")
+
+(define-autoload-command 'techinfo 'TECHINFO-MODE
+  "Enter TechInfo mode.")
+
 (define-library 'TELNET-MODE
   '("telnet" (EDWIN)))