From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 Sep 1993 19:50:18 +0000 (+0000)
Subject: Change find-file-hooks to pass the buffer to the event receivers.
X-Git-Tag: 20090517-FFI~7885
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b81b879a4db2970057a423543ee00ea22cc2d323;p=mit-scheme.git

Change find-file-hooks to pass the buffer to the event receivers.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 726e2d109..25ee58a47 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.175 1993/08/10 06:40:36 cph Exp $
+;;;	$Id: filcom.scm,v 1.176 1993/09/08 19:50:18 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -172,7 +172,7 @@ invocation."
 			   "write-protected"
 			   "doesn't exist")))))))))
     (normal-mode buffer true)
-    (event-distributor/invoke! (ref-variable find-file-hooks buffer))
+    (event-distributor/invoke! (ref-variable find-file-hooks buffer) buffer)
     (load-find-file-initialization buffer pathname)))
 
 (define (file-test-no-errors test pathname)