From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 17 Apr 1992 20:05:41 +0000 (+0000)
Subject: Add new outline minor mode.
X-Git-Tag: 20090517-FFI~9479
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a9d455385efcb55423960c420af08874be1db2d9;p=mit-scheme.git

Add new outline minor mode.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 947b7c70e..0dc998ae1 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.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 5083351d9..6aba6fae7 100644
--- 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 93e0daebe..afd561de0 100644
--- 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 772b18aeb..a4e32023b 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.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)