From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Jun 2001 17:43:21 +0000 (+0000)
Subject: Add new event EVENT:SET-BUFFER-MAJOR-MODE.
X-Git-Tag: 20090517-FFI~2721
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=478b893712d5c9ccb5d984454bf96e486044f1c5;p=mit-scheme.git

Add new event EVENT:SET-BUFFER-MAJOR-MODE.
---

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 4cd865f3c..db40b31b4 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: buffer.scm,v 1.181 2001/05/24 19:18:57 cph Exp $
+;;; $Id: buffer.scm,v 1.182 2001/06/07 17:43:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -497,7 +497,11 @@ The buffer is guaranteed to be deselected at that time."
   (set-variable-local-value! buffer
 			     (ref-variable-object mode-name)
 			     (mode-display-name mode))
-  ((mode-initialization mode) buffer))
+  ((mode-initialization mode) buffer)
+  (event-distributor/invoke! event:set-buffer-major-mode buffer))
+
+(define event:set-buffer-major-mode
+  (make-event-distributor))
 
 (define (buffer-minor-modes buffer)
   (list-copy (cdr (buffer-modes buffer))))