From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Sep 1992 01:04:06 +0000 (+0000)
Subject: Override DEFAULT-HOMEDIR-DIRECTORY to be the "work" directory so that
X-Git-Tag: 20090517-FFI~8908
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce2ab8d8922567e7293d38f1ce80b8137c944a25;p=mit-scheme.git

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