From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Mar 1989 19:09:51 +0000 (+0000)
Subject: Remove `writeable?' flag; define writability in terms of
X-Git-Tag: 20090517-FFI~12224
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8638afadd09a5fbd36e3362c206f6cf14ab179bf;p=mit-scheme.git

Remove `writeable?' flag; define writability in terms of
`group-read-only?'.
---

diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index e2ba8ae34..2975849eb 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.127 1989/03/14 07:58:47 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffer.scm,v 1.128 1989/03/15 19:09:51 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -51,7 +51,6 @@
   cursor-y
   pathname
   truename
-  writeable?
   alist
   local-bindings
   initializations
@@ -88,7 +87,6 @@ The buffer is guaranteed to be deselected at that time."
 	(vector-set! buffer buffer-index:cursor-y false)
 	(vector-set! buffer buffer-index:pathname false)
 	(vector-set! buffer buffer-index:truename false)
-	(vector-set! buffer buffer-index:writeable? true)
 	(vector-set! buffer buffer-index:alist '())
 	(vector-set! buffer buffer-index:local-bindings '())
 	(vector-set! buffer
@@ -267,19 +265,15 @@ The buffer is guaranteed to be deselected at that time."
 (define-integrable (buffer-read-only? buffer)
   (group-read-only? (buffer-group buffer)))
 
-(define (set-buffer-writeable! buffer)
-  (set-group-writeable! (buffer-group buffer))
-  (vector-set! buffer buffer-index:writeable? true)
-  (buffer-modeline-event! buffer 'BUFFER-MODIFIABLE))
+(define-integrable (buffer-writeable? buffer)
+  (not (buffer-read-only? buffer)))
 
-(define (set-buffer-file-read-only! buffer)
+(define (set-buffer-writeable! buffer)
   (set-group-writeable! (buffer-group buffer))
-  (vector-set! buffer buffer-index:writeable? false)
   (buffer-modeline-event! buffer 'BUFFER-MODIFIABLE))
 
 (define (set-buffer-read-only! buffer)
   (set-group-read-only! (buffer-group buffer))
-  (vector-set! buffer buffer-index:writeable? false)
   (buffer-modeline-event! buffer 'BUFFER-MODIFIABLE))
 
 (define (with-read-only-defeated mark thunk)