Generate variable to hold mode object of initial buffer. Move this

variable and `initial-buffer-name' to "modefs".

diff --git a/v7/src/edwin/edtstr.scm b/v7/src/edwin/edtstr.scm
index b57fe89102960146fd74d66e1938137a0f7605a6..b9fbcf358fd44ffe681e392ce54e845ed5b6c3dc 100644 (file)
--- a/v7/src/edwin/edtstr.scm
+++ b/v7/src/edwin/edtstr.scm
@@ -48,8 +48,7 @@
   (char-history false read-only true))
 
 (define (make-editor name screen)
-  (let ((initial-buffer
-        (make-buffer initial-buffer-name (ref-mode-object interaction))))
+  (let ((initial-buffer (make-buffer initial-buffer-name initial-buffer-mode)))
     (let ((bufferset (make-bufferset initial-buffer)))
       (let ((frame
             (make-editor-frame screen
@@ -64,9 +63,6 @@
                      (make-ring 10)
                      (make-ring 100))))))
 
-(define initial-buffer-name
-  "*scratch*")
-
 (define-integrable (current-screen)
   (editor-screen current-editor))
 

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index cd8f5a29732f2fe827d8db6b6f679600a0120195..5c0533d8e10e5d2d262233a89b3817c70997a05b 100644 (file)
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.115 1989/04/15 00:51:28 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.116 1989/04/25 02:06:17 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989 Massachusetts Institute of Technology
 ;;;
@@ -62,6 +62,12 @@ Most other major modes are defined by comparison to this one."
   "The default major mode for new buffers."
   (ref-mode-object fundamental))
 
+(define initial-buffer-name
+  "*scratch*")
+
+(define initial-buffer-mode
+  (ref-mode-object scheme-interaction))
+
 (define-variable file-type-to-major-mode
   "Specifies the major mode for new buffers based on file type.
 This is an alist, the cars of which are pathname types,