From a60f8c7a64b7cf4db8b680c1039ac8eff84249ac Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Jun 2001 17:45:01 +0000
Subject: [PATCH] LOAD-FIND-FILE-INITIALIZATION must be re-run when the
 buffer's pathname or major mode is changed.

---
 v7/src/edwin/filcom.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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
-- 
2.25.1