From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Apr 1989 18:21:08 +0000 (+0000)
Subject: Rewrite handling of tutorial so that the file pathnames are correct.
X-Git-Tag: 20090517-FFI~12194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f1d44ac3ee4497276c0a3b6cddbfb819468a672b;p=mit-scheme.git

Rewrite handling of tutorial so that the file pathnames are correct.
---

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index df1cfe69a..c91ecf178 100644
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.85 1989/03/14 08:00:50 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/hlpcom.scm,v 1.86 1989/04/05 18:21:08 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -252,14 +252,16 @@ Just \\[^R Universal Argument] means prompt for the new value."
 (define-command ("Teach Emacs")
   "Visit the Emacs learn-by-doing tutorial."
   (delete-other-windows (current-window))
-  (let ((pathname (string->pathname "*TUTORIAL")))
+  (let ((pathname
+	 (merge-pathnames (string->pathname "TUTORIAL")
+			  (home-directory-pathname))))
     (let ((buffer (pathname->buffer pathname)))
       (if buffer
 	  (select-buffer buffer)
 	  (let ((buffer (new-buffer (pathname->buffer-name pathname))))
-	    (read-buffer buffer (string->pathname "ED:-TUTORIAL"))
+	    (read-buffer buffer edwin-tutorial-pathname)
 	    (set-buffer-pathname! buffer pathname)
-	    (set-buffer-truename! buffer pathname)
+	    (set-buffer-truename! buffer false)
 	    (select-buffer buffer)
 	    (set-current-major-mode! fundamental-mode)
 	    (disable-buffer-auto-save! buffer)