Add autoload library to display UNIX manual pages.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 1fa746f44d9aa7166f7a7bc05510fc81eb1b069b..7aa9d0cf414fa2514c8d68001098311645b9c9af 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.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 f2666232d6ac41a0d26fc9fbf7d23325d7c3b600..77d2ea001c440bf3367e78adaf11d4416b3428d1 100644 (file)
--- 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 09c9a51b1c3bc9738d9c0a18a0d365c3673cffc8..05fa7b68d05952b83a52a5ad517f5cef69f8adfb 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.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 72915dc54e8de469e3bc41a9333bc6f8c9fd2ed8..08f0370c031420decc92f94923fe429d10c9c7e1 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.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 a9d4d0df7c9615196d2bf9f8bacf3285d2d1789b..036b92edba1ec2a9cc78c529c75487b9c91464c2 100644 (file)
--- 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