From 6c5ee2d2253ca7aaf02f55a537e2d2ca736b10c2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Sep 1992 18:30:03 +0000
Subject: [PATCH] Use SELECT-BUFFER-NOT-FOUND-HOOKS to change behavior of C-x b
 so that it always creates buffers that are associated with files.

---
 v7/src/6001/edextra.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index f4fe466e1..0fc648ba3 100644
--- a/v7/src/6001/edextra.scm
+++ b/v7/src/6001/edextra.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edextra.scm,v 1.14 1992/09/25 01:04:06 cph Exp $
+$Id: edextra.scm,v 1.15 1992/09/30 18:30:03 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -430,6 +430,13 @@ below.  Otherwise, answer \"no\" to use a different name.
 	     (insert-string reply-to point)
 	     (insert-newline point)))))))
 
+(set-variable! select-buffer-not-found-hooks
+	       (cons (lambda (name)
+		       (find-file-noselect (merge-pathnames name
+							    working-directory)
+					   true))
+		     (ref-variable select-buffer-not-found-hooks)))
+
 ;; Disable key bindings that exit the editor.
 ;; M-x logout is all the students should need.
 (define-key 'fundamental '(#\c-x #\c-c) false)
-- 
2.25.1