Add new outline minor mode.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 947b7c70e78a1aa66746187c67fa2cf0d2da0572..0dc998ae1882a95313f9acb3f9dd4fa4fe6046f3 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.34 1992/04/09 17:22:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.35 1992/04/17 20:05:10 arthur Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -156,6 +156,7 @@ MIT in each case. |#
                "motcom"
                "motion"
                "notify"
+               "outline"
                "occur"
                "pasmod"
                "print"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 5083351d98df295f204dcd1f79f06fce61d0d478..6aba6fae79f66fb07fced0d99cca7aad9e7799ec 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -143,6 +143,8 @@
               syntax-table/system-internal)
     ("occur"   (edwin occurrence)
               edwin-syntax-table)
+    ("outline" (edwin)
+              edwin-syntax-table)
     ("pasmod"  (edwin)
               edwin-syntax-table)
     ("paths"   (edwin)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 93e0daebe5a6ea94800f3c57a46f786aa2d1d817..afd561de067c0e4ec720c277359061816c1d3d0c 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.26 1992/04/09 17:22:25 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.27 1992/04/17 20:05:27 arthur Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -128,4 +128,5 @@
       (load "bochser" env)
       (load "bochsmod" env)
       ((access initialize-bochser-mode! env)))
-    (load "notify" environment)))
\ No newline at end of file
+    (load "notify" environment)
+    (load "outline" environment)))
\ No newline at end of file

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 772b18aebb905d4a16bca5db0f801fe359d44b6d..a4e32023bd1f4d2944d14227f5b9351233ffd4f9 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.88 1992/04/16 22:29:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.89 1992/04/17 20:05:18 arthur Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -102,7 +102,8 @@ MIT in each case. |#
         "tximod"
         "manual"                       ; man page display
         "print"                        ; printer output
-        "notify")                      ; mode line notifications
+        "notify"                       ; mode line notifications
+        "outline")                     ; outline minor mode
   (parent ())
   (import (runtime rep)
          hook/repl-eval)