From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 18 Sep 1991 13:56:26 +0000 (+0000)
Subject: Add autoload library to display UNIX manual pages.
X-Git-Tag: 20090517-FFI~10202
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7a8d1c76f2160c757fd6151150afccc0bbc4539;p=mit-scheme.git

Add autoload library to display UNIX manual pages.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 1fa746f44..7aa9d0cf4 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.24 1991/08/28 14:54:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.25 1991/09/18 13:56:26 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -139,6 +139,7 @@ MIT in each case. |#
 	      "loadef"
 	      "lspcom"
 	      "malias"
+	      "manual"
 	      "midas"
 	      "modefs"
 	      "modes"
diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index f2666232d..77d2ea001 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -119,6 +119,8 @@
 	       syntax-table/system-internal)
     ("malias"  (edwin mail-alias)
 	       edwin-syntax-table)
+    ("manual"  (edwin)
+	       edwin-syntax-table)
     ("midas"   (edwin)
 	       edwin-syntax-table)
     ("modefs"  (edwin)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 09c9a51b1..05fa7b68d 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.60 1991/09/12 23:45:01 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.61 1991/09/18 13:56:05 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -98,7 +98,8 @@ MIT in each case. |#
 	 "c-mode"
 	 "midas"
 	 "pasmod"
-	 "tximod")
+	 "tximod"
+	 "manual")			; man page display
   (parent ())
   (import (runtime rep)
 	  hook/repl-eval)
diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 72915dc54..08f0370c0 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.10 1991/08/28 14:15:28 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.11 1991/09/18 13:56:13 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -127,3 +127,11 @@ modified version of TeX input format.")
 (define-variable texinfo-mode-hook
   "An event distributor that is invoked when entering Texinfo mode."
   (make-event-distributor))
+
+;;;; Other Libraries
+
+(define-library 'manual
+  '("manual" (EDWIN)))
+
+(define-autoload-command 'manual-entry 'MANUAL
+  "Display UNIX man page.")
\ No newline at end of file
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index a9d4d0df7..036b92edb 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.58 1991/09/17 14:44:26 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.59 1991/09/18 13:55:51 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 58 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 59 '()))
\ No newline at end of file