From ce2ab8d8922567e7293d38f1ce80b8137c944a25 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Sep 1992 01:04:06 +0000
Subject: [PATCH] Override DEFAULT-HOMEDIR-DIRECTORY to be the "work" directory
 so that buffers with no natural directory end up being in a reasonable place.

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

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index 6902e6cac..f4fe466e1 100644
--- a/v7/src/6001/edextra.scm
+++ b/v7/src/6001/edextra.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edextra.scm,v 1.13 1992/09/17 05:15:08 cph Exp $
+$Id: edextra.scm,v 1.14 1992/09/25 01:04:06 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -343,6 +343,9 @@ The following filenames are reserved and may not be used:
 	      (equal? "asv" (pathname-type filename))
 	      (usual filename)))))
 
+(set! default-homedir-pathname
+      (lambda () (->pathname student-dir)))
+
 (define (dired-buffer-directory buffer)
   ;; Similar to the definition in "dired.scm".  That definition should
   ;; be exported in order to eliminate this redundant definition.
-- 
2.25.1