From a9d455385efcb55423960c420af08874be1db2d9 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Fri, 17 Apr 1992 20:05:41 +0000 Subject: [PATCH] Add new outline minor mode. --- v7/src/edwin/decls.scm | 3 ++- v7/src/edwin/ed-ffi.scm | 2 ++ v7/src/edwin/edwin.ldr | 5 +++-- v7/src/edwin/edwin.pkg | 5 +++-- 4 files changed, 10 insertions(+), 5 deletions(-) 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) -- 2.25.1