Add binding of DEFAULT-HOMEDIR-PATHNAME to allow 6.001 to override the

default "home" directory.

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index d35a47b327135e4d1251dd1434cdea0f887191d7..1027fe99da157dc99dcf1d87157b568409f91c54 100644 (file)
--- 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 003b28ac66fc5e286f73d40fbf15ec82da101381..5c6d28f343b066a46a34ee71eef577d82bdf89a2 100644 (file)
--- 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 47a2401fb3e87556ca47ea881fff855bf9b1c9f1..56463da8520e66b80db80364037d11fea52e3b68 100644 (file)
--- 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)))))