Add mail and load average notification.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 5b3f5dce6d86c55e019dd185fa39faa3f1916465..7ee7585f7624cbef2b3a76e3927464b13871f582 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.31 1992/02/08 15:23:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.32 1992/02/14 22:31:40 arthur Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -154,6 +154,7 @@ MIT in each case. |#
                "modlin"
                "motcom"
                "motion"
+               "notify"
                "pasmod"
                "print"
                "process"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index bc10f265970bd6dc16bf92cc612b945869af3657..56fb3a3c50e28749f6fa655fd238b8c315a3d6a1 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -135,6 +135,8 @@
               edwin-syntax-table)
     ("motion"  (edwin)
               syntax-table/system-internal)
+    ("notify" (edwin)
+              syntax-table/system-internal)
     ("nvector" (edwin)
               syntax-table/system-internal)
     ("pasmod"  (edwin)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 4965f4b16a46080cfaa7f32d2c558ecea43f5a8a..b9f6dadeb5d62666b611806bc3b71cb1449208a1 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.23 1992/02/08 15:23:33 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.24 1992/02/14 22:30:26 arthur Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -125,4 +125,5 @@
     (let ((env (->environment '(EDWIN BOCHSER))))
       (load "bochser" env)
       (load "bochsmod" env)
-      ((access initialize-bochser-mode! env)))))
\ No newline at end of file
+      ((access initialize-bochser-mode! env)))
+    (load "notify" environment)))
\ No newline at end of file

diff --git a/v7/src/edwin/modlin.scm b/v7/src/edwin/modlin.scm
index f9df551a996179c3f11a23c172b719a155fa4dc5..9123bd7008db367581fbe0a1c76f2e85227a0936 100644 (file)
--- a/v7/src/edwin/modlin.scm
+++ b/v7/src/edwin/modlin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modlin.scm,v 1.12 1991/11/04 20:51:24 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modlin.scm,v 1.13 1992/02/14 22:30:53 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -77,6 +77,7 @@ Decimal digits after the % specify field width to which to pad."
        mode-line-buffer-identification
        "   "
        global-mode-string
+       notify-string
        "   %[(%M%m%n"
        mode-line-process
        ")%]----"