From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Jun 2001 17:45:01 +0000 (+0000)
Subject: LOAD-FIND-FILE-INITIALIZATION must be re-run when the buffer's
X-Git-Tag: 20090517-FFI~2719
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a60f8c7a64b7cf4db8b680c1039ac8eff84249ac;p=mit-scheme.git

LOAD-FIND-FILE-INITIALIZATION must be re-run when the buffer's
pathname or major mode is changed.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 4a204a48e..7122b06ac 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.218 2001/06/02 21:57:16 cph Exp $
+;;; $Id: filcom.scm,v 1.219 2001/06/07 17:45:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -191,6 +191,14 @@ procedures are called."
 	   (or (not b)
 	       (> a b))))))
 
+(let ((procedure
+       (lambda (buffer)
+	 (let ((pathname (buffer-pathname buffer)))
+	   (if pathname
+	       (load-find-file-initialization buffer pathname))))))
+  (add-event-receiver! event:set-buffer-pathname procedure)
+  (add-event-receiver! event:set-buffer-major-mode procedure))
+
 (define (load-find-file-initialization buffer pathname)
   (let ((pathname
 	 (catch-file-errors