From 13d513e08910e505c4aefadf8b747cec90d0e388 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 25 Apr 1989 02:06:17 +0000 Subject: [PATCH] Generate variable to hold mode object of initial buffer. Move this variable and `initial-buffer-name' to "modefs". --- v7/src/edwin/edtstr.scm | 6 +----- v7/src/edwin/modefs.scm | 8 +++++++- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/v7/src/edwin/edtstr.scm b/v7/src/edwin/edtstr.scm index b57fe8910..b9fbcf358 100644 --- 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 cd8f5a297..5c0533d8e 100644 --- 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, -- 2.25.1