From f02e5cc4b7e673cd40cfce383738af093f19b813 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 14 Feb 1992 22:34:07 +0000
Subject: [PATCH] Add mail and load average notification.

---
 v7/src/edwin/decls.scm  | 3 ++-
 v7/src/edwin/ed-ffi.scm | 2 ++
 v7/src/edwin/edwin.ldr  | 5 +++--
 v7/src/edwin/modlin.scm | 3 ++-
 4 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 5b3f5dce6..7ee7585f7 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.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 bc10f2659..56fb3a3c5 100644
--- 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 4965f4b16..b9f6dadeb 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.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 f9df551a9..9123bd700 100644
--- 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
        ")%]----"
-- 
2.25.1