From 147b5b366738b5514c83f2606b1d992b69f4b2df Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 25 Sep 1992 01:01:02 +0000
Subject: [PATCH] Add binding of DEFAULT-HOMEDIR-PATHNAME to allow 6.001 to
 override the default "home" directory.

---
 v7/src/edwin/hlpcom.scm   |  6 +++---
 v7/src/edwin/paths.scm    | 11 ++++++++---
 v7/src/edwin/sendmail.scm |  4 ++--
 3 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index d35a47b32..1027fe99d 100644
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.103 1992/03/13 10:11:12 cph Exp $
+;;;	$Id: hlpcom.scm,v 1.104 1992/09/25 01:01:02 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -301,7 +301,7 @@ If you want VALUE to be a string, you must surround it with doublequotes."
   ()
   (lambda ()
     (delete-other-windows (current-window))
-    (let ((pathname (merge-pathnames "TUTORIAL" (user-homedir-pathname))))
+    (let ((pathname (merge-pathnames "TUTORIAL" (default-homedir-pathname))))
       (let ((buffer (pathname->buffer pathname)))
 	(if buffer
 	    (select-buffer buffer)
diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm
index 003b28ac6..5c6d28f34 100644
--- a/v7/src/edwin/paths.scm
+++ b/v7/src/edwin/paths.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.12 1992/05/26 17:14:48 jinx Exp $
+$Id: paths.scm,v 1.13 1992/09/25 01:00:44 cph Exp $
 
-Copyright (c) 1989-91 Massachusetts Institute of Technology
+Copyright (c) 1989-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -69,4 +69,9 @@ MIT in each case. |#
    "etc"))
 
 (define (edwin-tutorial-pathname)
-  (edwin-etc-pathname "TUTORIAL"))
\ No newline at end of file
+  (edwin-etc-pathname "TUTORIAL"))
+
+(define default-homedir-pathname
+  ;; This binding exists to allow uses of the "home" directory as a
+  ;; default directory to be overridden.
+  user-homedir-pathname)
\ No newline at end of file
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 47a2401fb..56463da85 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.14 1992/08/18 22:10:54 cph Exp $
+;;;	$Id: sendmail.scm,v 1.15 1992/09/25 01:00:55 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -160,7 +160,7 @@ is inserted."
 		 (prompt-for-confirmation?
 		  "Unsent message being composed; erase it")))
 	(begin
-	  (set-buffer-default-directory! buffer (->pathname "~/"))
+	  (set-buffer-default-directory! buffer (default-homedir-pathname))
 	  (setup-buffer-auto-save! buffer)
 	  (region-delete! (buffer-unclipped-region buffer))
 	  (mail-setup buffer to subject in-reply-to cc reply-buffer)))))
-- 
2.25.1