From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 May 1995 06:25:50 +0000 (+0000)
Subject: Fix bug: select-buffer-hook not being invoked-with correct arguments.
X-Git-Tag: 20090517-FFI~6347
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a95b6d52b29141725db1858cf0aa9e828f332e9;p=mit-scheme.git

Fix bug: select-buffer-hook not being invoked-with correct arguments.
---

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index 3d17ba0bd..42ea3140d 100644
--- a/v7/src/edwin/curren.scm
+++ b/v7/src/edwin/curren.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: curren.scm,v 1.116 1995/04/30 07:02:10 cph Exp $
+;;;	$Id: curren.scm,v 1.117 1995/05/05 06:25:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -469,9 +469,9 @@ The screen is guaranteed to be deselected at that time."
   (for-each (lambda (hook) (hook buffer window))
 	    (get-buffer-hooks buffer 'SELECT-BUFFER-HOOKS))
   (if (not (minibuffer? buffer))
-      (event-distributor/invoke!
-       (variable-default-value (ref-variable-object select-buffer-hook))
-       buffer)))
+      (event-distributor/invoke! (ref-variable select-buffer-hook #f)
+				 buffer
+				 window)))
 
 (define-integrable (add-select-buffer-hook buffer hook)
   (add-buffer-hook buffer 'SELECT-BUFFER-HOOKS hook))