From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Fri, 10 Jan 1992 18:54:57 +0000 (+0000)
Subject: Added TechInfo mode (techinfo.scm) as an autoload.
X-Git-Tag: 20090517-FFI~10006
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9dd8deef845a0c49215f2a906153d80a36feac21;p=mit-scheme.git

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

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 57a6c6641..09d6440bf 100644
--- 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 d8753f4a2..bc10f2659 100644
--- 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 1fdf99cce..413068d17 100644
--- 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 c5ed9d704..5a22ce585 100644
--- 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))
 
 ;;;; 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)))