Override DEFAULT-HOMEDIR-DIRECTORY to be the "work" directory so that

buffers with no natural directory end up being in a reasonable place.

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index 6902e6cacbdac429d7645dbc8c90878cb162aba3..f4fe466e10e2c9f0fe3be1e8f8b7e75caad60232 100644 (file)
--- 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.