From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 23 Mar 2000 03:19:25 +0000 (+0000)
Subject: Change "writable" to "writeable".
X-Git-Tag: 20090517-FFI~4163
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f61ceb9b7fef3068671b0246d845282196480f92;p=mit-scheme.git

Change "writable" to "writeable".
---

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index 3230f0921..268f0f773 100644
--- a/v7/src/edwin/bufcom.scm
+++ b/v7/src/edwin/bufcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: bufcom.scm,v 1.106 1999/01/28 03:59:44 cph Exp $
+;;; $Id: bufcom.scm,v 1.107 2000/03/23 03:18:47 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -124,7 +124,7 @@ Reads the new name in the echo area."
 (define (kill-buffer-query-modified buffer)
   (or (not (and (buffer-pathname buffer)
 		(buffer-modified? buffer)
-		(buffer-writable? buffer)))
+		(buffer-writeable? buffer)))
       (prompt-for-yes-or-no?
        (string-append "Buffer "
 		      (buffer-name buffer)
@@ -199,9 +199,9 @@ When locked, the buffer's major mode may not be changed."
   ()
   (lambda ()
     (let ((buffer (current-buffer)))
-      (if (buffer-writable? buffer)
+      (if (buffer-writeable? buffer)
 	  (set-buffer-read-only! buffer)
-	  (set-buffer-writable! buffer)))))
+	  (set-buffer-writeable! buffer)))))
 
 (define-command no-toggle-read-only
   "Display warning indicating that this buffer may not be modified."
@@ -212,7 +212,7 @@ When locked, the buffer's major mode may not be changed."
 (define (save-buffer-changes buffer)
   (if (and (buffer-pathname buffer)
 	   (buffer-modified? buffer)
-	   (buffer-writable? buffer)
+	   (buffer-writeable? buffer)
 	   (prompt-for-yes-or-no?
 	    (string-append "Buffer "
 			   (buffer-name buffer)
diff --git a/v7/src/edwin/buffer.scm b/v7/src/edwin/buffer.scm
index 516911961..8aae9a209 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: buffer.scm,v 1.175 2000/02/29 04:07:07 cph Exp $
+;;; $Id: buffer.scm,v 1.176 2000/03/23 03:19:02 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -113,7 +113,7 @@ The buffer is guaranteed to be deselected at that time."
       (without-interrupts thunk)))
 
 (define (buffer-reset! buffer)
-  (set-buffer-writable! buffer)
+  (set-buffer-writeable! buffer)
   (buffer-widen! buffer)
   (region-delete! (buffer-region buffer))
   (buffer-not-modified! buffer)
@@ -272,11 +272,11 @@ The buffer is guaranteed to be deselected at that time."
 (define-integrable (buffer-read-only? buffer)
   (group-read-only? (buffer-group buffer)))
 
-(define-integrable (buffer-writable? buffer)
+(define-integrable (buffer-writeable? buffer)
   (not (buffer-read-only? buffer)))
 
-(define (set-buffer-writable! buffer)
-  (set-group-writable! (buffer-group buffer))
+(define (set-buffer-writeable! buffer)
+  (set-group-writeable! (buffer-group buffer))
   (buffer-modeline-event! buffer 'BUFFER-MODIFIABLE))
 
 (define (set-buffer-read-only! buffer)
@@ -288,12 +288,12 @@ The buffer is guaranteed to be deselected at that time."
 	(outside)
 	(inside 'FULLY))
     (dynamic-wind (lambda ()
-		    (set! outside (group-writable? group))
-		    (set-group-writable?! group inside))
+		    (set! outside (group-writeable? group))
+		    (set-group-writeable?! group inside))
 		  thunk
 		  (lambda ()
-		    (set! inside (group-writable? group))
-		    (set-group-writable?! group outside)))))
+		    (set! inside (group-writeable? group))
+		    (set-group-writeable?! group outside)))))
 
 ;;;; Local Bindings
 
diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index dce74ffd0..10eaa52cd 100644
--- a/v7/src/edwin/bufmnu.scm
+++ b/v7/src/edwin/bufmnu.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: bufmnu.scm,v 1.126 1999/01/02 06:11:34 cph Exp $
+;;; $Id: bufmnu.scm,v 1.127 2000/03/23 03:19:03 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -58,7 +58,7 @@ Type q immediately to make the buffer menu go away."
 
 (define (revert-buffer-menu buffer dont-use-auto-save? dont-confirm?)
   dont-use-auto-save? dont-confirm?	;ignore
-  (set-buffer-writable! buffer)
+  (set-buffer-writeable! buffer)
   (region-delete! (buffer-region buffer))
   (fill-buffer-menu! buffer (buffer-get buffer 'REVERT-BUFFER-FILES-ONLY?)))
 
@@ -76,7 +76,7 @@ Type q immediately to make the buffer menu go away."
 			  (list-buffers-format
 			   (if (eq? buffer current) "." " ")
 			   (if (buffer-modified? buffer) "*" " ")
-			   (if (buffer-writable? buffer) " " "%")
+			   (if (buffer-writeable? buffer) " " "%")
 			   (buffer-name buffer)
 			   (write-to-string
 			    (group-length (buffer-group buffer)))
diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index c7f8a144f..b656ca27c 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debug.scm,v 1.48 1999/02/24 21:36:02 cph Exp $
+;;; $Id: debug.scm,v 1.49 2000/03/23 03:19:04 cph Exp $
 ;;;
-;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1992-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -34,7 +34,7 @@
   (region-read-only (make-region start end)))
 
 (define (readable-between start end)
-  (region-writable (make-region start end)))
+  (region-writeable (make-region start end)))
 
 (define (dehigh-between start end)
   (highlight-region (make-region start end) (default-face)))
diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index a4618ba9b..0b9164fdb 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debuge.scm,v 1.53 1999/01/02 06:11:34 cph Exp $
+;;; $Id: debuge.scm,v 1.54 2000/03/23 03:19:05 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -28,7 +28,7 @@
 
 (define (debug-save-buffer buffer)
   (if (and (buffer-modified? buffer)
-	   (buffer-writable? buffer)
+	   (buffer-writeable? buffer)
 	   (not (minibuffer? buffer)))
       (let ((pathname
 	     (let ((pathname (buffer-pathname buffer)))
diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index c18240e6f..9b1506a8a 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.171 2000/03/22 16:12:32 cph Exp $
+;;; $Id: dired.scm,v 1.172 2000/03/23 03:19:06 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -201,7 +201,7 @@ Type `h' after entering dired for more info."
 (define (fill-dired-buffer! buffer directory-spec)
   (let ((pathname (car directory-spec))
 	(file-list (cdr directory-spec)))
-    (set-buffer-writable! buffer)
+    (set-buffer-writeable! buffer)
     (region-delete! (buffer-region buffer))
     (temporary-message
      (string-append "Reading directory " (->namestring pathname) "..."))
diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 9b06eedf1..362683f4e 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dos.scm,v 1.51 2000/01/16 13:24:07 cph Exp $
+;;; $Id: dos.scm,v 1.52 2000/03/23 03:19:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-2000 Massachusetts Institute of Technology
 ;;;
@@ -22,7 +22,7 @@
 
 (declare (usual-integrations))
 
-(define (os/set-file-modes-writable! pathname)
+(define (os/set-file-modes-writeable! pathname)
   (set-file-modes! pathname
 		   (fix:andc (file-modes pathname) nt-file-mode/read-only)))
 
diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 8fe1bd147..1ac9ad8cd 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: evlcom.scm,v 1.62 1999/05/13 03:06:40 cph Exp $
+;;; $Id: evlcom.scm,v 1.63 2000/03/23 03:19:09 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -546,14 +546,14 @@ Set by Scheme evaluation code to update the mode line."
 		      (set! outside (group-read-only? group))
 		      (if inside
 			  (set-group-read-only! group)
-			  (set-group-writable! group)))
+			  (set-group-writeable! group)))
 		    (lambda ()
 		      (procedure buffer))
 		    (lambda ()
 		      (set! inside (group-read-only? group))
 		      (if outside
 			  (set-group-read-only! group)
-			  (set-group-writable! group)))))))
+			  (set-group-writeable! group)))))))
 
 (define (transcript-buffer)
   (let ((name (ref-variable transcript-buffer-name)))
diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 008261ae6..c3ec56221 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.208 2000/02/28 22:51:09 cph Exp $
+;;; $Id: filcom.scm,v 1.209 2000/03/23 03:19:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -126,7 +126,7 @@ invocation."
 	   (not (file-test-no-errors file-writeable? pathname))))
       (if buffer-read-only?
 	  (set-buffer-read-only! buffer)
-	  (set-buffer-writable! buffer))
+	  (set-buffer-writeable! buffer))
       (setup-buffer-auto-save! buffer)
       (let ((serious-message
 	     (lambda (msg)
diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 9baa5bb5a..8a1338938 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.149 2000/01/05 02:41:26 cph Exp $
+;;; $Id: fileio.scm,v 1.150 2000/03/23 03:19:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -130,7 +130,7 @@ of the predicates is satisfied, the file is written in the usual way."
 ;;;; Input
 
 (define (read-buffer buffer pathname visit?)
-  (set-buffer-writable! buffer)
+  (set-buffer-writeable! buffer)
   (let ((truename #f)
 	(file-error #f)
 	(group (buffer-group buffer)))
@@ -560,7 +560,7 @@ Otherwise, a message is written both before and after long file writes."
 				(->namestring pathname)))
 			   (lambda ()
 			     (let ((m (file-modes pathname)))
-			       (os/set-file-modes-writable! pathname)
+			       (os/set-file-modes-writeable! pathname)
 			       (set! modes m)))))
 		     (write-buffer buffer)))
 	      (if modes
diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index ae0b03016..b28df5ebb 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: info.scm,v 1.133 1999/01/02 06:11:34 cph Exp $
+;;; $Id: info.scm,v 1.134 2000/03/23 03:19:13 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -314,7 +314,7 @@ Allowed only if the variable Info Enable Edit is not false."
   (lambda ()
     (if (not (ref-variable info-enable-edit))
 	(editor-error "Editing Info nodes is not enabled"))
-    (set-buffer-writable! (current-buffer))
+    (set-buffer-writeable! (current-buffer))
     (set-current-major-mode! (ref-mode-object info-edit))
     (message "Editing: Type C-c C-c to return to Info")))
 
diff --git a/v7/src/edwin/modlin.scm b/v7/src/edwin/modlin.scm
index f3617fea4..3ae62a673 100644
--- a/v7/src/edwin/modlin.scm
+++ b/v7/src/edwin/modlin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: modlin.scm,v 1.21 2000/01/10 03:24:58 cph Exp $
+;;; $Id: modlin.scm,v 1.22 2000/03/23 03:19:14 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -264,7 +264,7 @@ If #F, the normal method is used."
 	   ((#\n)
 	    (if (group-clipped? (buffer-group buffer)) " Narrow" ""))
 	   ((#\*)
-	    (cond ((not (buffer-writable? buffer)) "%")
+	    (cond ((not (buffer-writeable? buffer)) "%")
 		  ((buffer-modified? buffer) "*")
 		  (else "-")))
 	   ((#\s)
diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 62becbe5a..53ecdf04d 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: os2.scm,v 1.48 2000/01/16 13:24:14 cph Exp $
+;;; $Id: os2.scm,v 1.49 2000/03/23 03:19:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -22,7 +22,7 @@
 
 (declare (usual-integrations))
 
-(define (os/set-file-modes-writable! pathname)
+(define (os/set-file-modes-writeable! pathname)
   (set-file-modes! pathname
 		   (fix:andc (file-modes pathname) os2-file-mode/read-only)))
 
diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index b885edd6d..cafdd8ef4 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rmail.scm,v 1.67 2000/03/22 17:36:03 cph Exp $
+;;; $Id: rmail.scm,v 1.68 2000/03/23 03:19:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -1614,7 +1614,7 @@ buffer visiting that file."
 		   'RMAIL-OLD-TEXT
 		   (extract-string (buffer-start buffer)
 				   (buffer-end buffer)))
-      (set-buffer-writable! buffer)
+      (set-buffer-writeable! buffer)
       (message
        (substitute-command-keys
 	"Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort."
@@ -2296,25 +2296,25 @@ Completion is performed over known labels when reading."
   (with-group-undo-disabled (buffer-group buffer) thunk))
 
 (define (with-group-open group thunk)
-  (let ((outside-writable)
-	(inside-writable 'FULLY)
+  (let ((outside-writeable)
+	(inside-writeable 'FULLY)
 	(outside-start)
 	(outside-end)
 	(inside-start (mark-permanent! (group-absolute-start group)))
 	(inside-end (mark-permanent! (group-absolute-end group))))
     (unwind-protect (lambda ()
-		      (set! outside-writable (group-writable? group))
+		      (set! outside-writeable (group-writeable? group))
 		      (set! outside-start (group-start-mark group))
 		      (set! outside-end (group-end-mark group))
-		      (set-group-writable?! group inside-writable)
+		      (set-group-writeable?! group inside-writeable)
 		      (set-group-start-mark! group inside-start)
 		      (set-group-end-mark! group inside-end))
 		    thunk
 		    (lambda ()
-		      (set! inside-writable (group-writable? group))
+		      (set! inside-writeable (group-writeable? group))
 		      (set! inside-start (group-start-mark group))
 		      (set! inside-end (group-end-mark group))
-		      (set-group-writable?! group outside-writable)
+		      (set-group-writeable?! group outside-writeable)
 		      (set-group-start-mark! group outside-start)
 		      (set-group-end-mark! group outside-end)))))
 
diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index f25703e72..c621f9ce5 100644
--- a/v7/src/edwin/rmailsrt.scm
+++ b/v7/src/edwin/rmailsrt.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rmailsrt.scm,v 1.12 1999/08/20 20:35:39 cph Exp $
+;;; $Id: rmailsrt.scm,v 1.13 2000/03/23 03:19:18 cph Exp $
 ;;;
-;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -110,7 +110,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
 	   (sort-vect (make-vector (1+ nummsg))))
       (message "Finding sort keys...")
       (widen)
-      (set-buffer-writable! (current-buffer))
+      (set-buffer-writeable! (current-buffer))
       (let loop ((n 0)
 		 (the-memo (msg-memo/first (current-msg-memo))))
 	(let ((next (msg-memo/next the-memo)))
diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index 49f5da97a..8ce7025b7 100644
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rmailsum.scm,v 1.35 1999/05/13 03:06:45 cph Exp $
+;;; $Id: rmailsum.scm,v 1.36 2000/03/23 03:19:19 cph Exp $
 ;;;
-;;; Copyright (c) 1991-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -24,7 +24,7 @@
 
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Id: rmailsum.scm,v 1.35 1999/05/13 03:06:45 cph Exp $"
+  "$Id: rmailsum.scm,v 1.36 2000/03/23 03:19:19 cph Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
@@ -166,7 +166,7 @@ RECIPIENTS is a string of names separated by commas."
 	    (if next-memo
 		(loop next-memo))))
 	(select-buffer-other-window (ref-variable rmail-summary-buffer))
-	(set-buffer-writable! (current-buffer))
+	(set-buffer-writeable! (current-buffer))
 	(set-current-point! (buffer-start (current-buffer)))
 	(kill-string (buffer-start (current-buffer))
 		     (buffer-end (current-buffer)))
@@ -497,7 +497,7 @@ Entering this mode calls value of hook variable rmail-summary-mode-hook."
 		(begin
 		  (if (char=? (mark-right-char end) #\-)
 		      (begin
-			(set-buffer-writable! (current-buffer))
+			(set-buffer-writeable! (current-buffer))
 			(mark-delete-right-char! end)
 			(insert-char #\space end)
 			(set-buffer-read-only! (current-buffer))))
@@ -585,7 +585,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
 		      (begin
 			(if (char=? (mark-right-char end) #\-)
 			    (begin
-			      (set-buffer-writable! (current-buffer))
+			      (set-buffer-writeable! (current-buffer))
 			      (mark-delete-right-char! end)
 			      (insert-char #\space end)
 			      (set-buffer-read-only! (current-buffer))))
@@ -620,7 +620,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
 	   (skip-chars-forward " " (line-start (current-point) 0))))
       (let ((the-mark
 	     (skip-chars-forward "[0-9]" the-mark1)))
-	(set-buffer-writable! (current-buffer))
+	(set-buffer-writeable! (current-buffer))
 	(delete-string the-mark (mark1+ the-mark))
 	(insert-string "D" the-mark)
 	(set-buffer-read-only! (current-buffer))))))
@@ -659,7 +659,7 @@ shown in the RMAIL buffer, warp to the appropriate message."
 	     (skip-chars-forward " " (line-start (current-point) 0))))
 	(let ((the-mark
 	       (skip-chars-forward "[0-9]" the-mark1)))
-	  (set-buffer-writable! (current-buffer))
+	  (set-buffer-writeable! (current-buffer))
 	  (delete-string the-mark (mark1+ the-mark))
 	  (insert-string " " the-mark)
 	  (set-buffer-read-only! (current-buffer)))))))
diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index 1d3842479..6ac76eb67 100644
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: struct.scm,v 1.92 1999/11/01 03:40:13 cph Exp $
+;;; $Id: struct.scm,v 1.93 2000/03/23 03:19:20 cph Exp $
 ;;;
-;;; Copyright (c) 1985, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1985, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -77,7 +77,7 @@
   (marks '())
   start-mark
   end-mark
-  (writable? #t)
+  (writeable? #t)
   display-start
   display-end
   (start-changes-index #f)
@@ -132,14 +132,14 @@
 (define-integrable (group-display-end-index? group index)
   (fix:>= index (group-display-end-index group)))
 
-(define-integrable (set-group-writable! group)
-  (set-group-writable?! group #t))
+(define-integrable (set-group-writeable! group)
+  (set-group-writeable?! group #t))
 
 (define-integrable (set-group-read-only! group)
-  (set-group-writable?! group #f))
+  (set-group-writeable?! group #f))
 
 (define-integrable (group-read-only? group)
-  (not (group-writable? group)))
+  (not (group-writeable? group)))
 
 (define (group-region group)
   (%make-region (group-start-mark group) (group-end-mark group)))
diff --git a/v7/src/edwin/techinfo.scm b/v7/src/edwin/techinfo.scm
index 45dc7955f..523319ccb 100644
--- a/v7/src/edwin/techinfo.scm
+++ b/v7/src/edwin/techinfo.scm
@@ -1,6 +1,6 @@
 ;;; -*- Scheme -*-
 
-;; Copyright (c) 1992, 1999 Massachusetts Institute of Technology
+;; Copyright (c) 1992, 1999-2000 Massachusetts Institute of Technology
 ;;
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -22,7 +22,7 @@
 ;;;
 ;;; Author: Brian A. LaMacchia -- bal@zurich.ai.mit.edu
 ;;;
-;;; $Id: techinfo.scm,v 1.5 1999/01/02 06:11:34 cph Exp $
+;;; $Id: techinfo.scm,v 1.6 2000/03/23 03:19:21 cph Exp $
 ;;;
 
 (declare (usual-integrations))
@@ -183,7 +183,7 @@ is set to t.  At Athena it is nil."
 
 (define (techinfo-display-internal-node node-list #!optional placement)
   (set-variable! techinfo-current-node-list node-list)
-  (set-buffer-writable! (current-buffer))
+  (set-buffer-writeable! (current-buffer))
   (set-current-point! (buffer-start (current-buffer)))
   (kill-string (buffer-start (current-buffer))
 	       (buffer-end (current-buffer)))
@@ -211,7 +211,7 @@ is set to t.  At Athena it is nil."
 
 (define (techinfo-display-leaf-node node-list)
   (set-variable! techinfo-current-node-list node-list)
-  (set-buffer-writable! (current-buffer))
+  (set-buffer-writeable! (current-buffer))
   (set-current-point! (buffer-start (current-buffer)))
   (kill-string (buffer-start (current-buffer))
 	       (buffer-end (current-buffer)))
diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 510b7af1a..07449d4e9 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: txtprp.scm,v 1.19 2000/02/25 17:47:37 cph Exp $
+;;; $Id: txtprp.scm,v 1.20 2000/03/23 03:19:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1993-2000 Massachusetts Institute of Technology
 ;;;
@@ -237,7 +237,7 @@
 (define (subgroup-read-only group start end)
   (add-text-property group start end 'READ-ONLY (list 'READ-ONLY)))
 
-(define (subgroup-writable group start end)
+(define (subgroup-writeable group start end)
   (remove-text-property group start end 'READ-ONLY))
 
 (define (region-read-only region)
@@ -245,14 +245,14 @@
 		      (region-start-index region)
 		      (region-end-index region)))
 
-(define (region-writable region)
-  (subgroup-writable (region-group region)
-		     (region-start-index region)
-		     (region-end-index region)))
+(define (region-writeable region)
+  (subgroup-writeable (region-group region)
+		      (region-start-index region)
+		      (region-end-index region)))
 
 (define (text-not-insertable? group start)
   ;; Assumes that (GROUP-TEXT-PROPERTIES GROUP) is not #F.
-  (and (not (eq? 'FULLY (group-writable? group)))
+  (and (not (eq? 'FULLY (group-writeable? group)))
        (not (fix:= start 0))
        (not (fix:= start (group-length group)))
        (let ((interval (find-interval group start)))
@@ -269,7 +269,7 @@
 
 (define (text-not-deleteable? group start end)
   ;; Assumes that (GROUP-TEXT-PROPERTIES GROUP) is not #F.
-  (and (not (eq? 'FULLY (group-writable? group)))
+  (and (not (eq? 'FULLY (group-writeable? group)))
        (fix:< start end)
        (let loop ((interval (find-interval group start)))
 	 (or (interval-property interval 'READ-ONLY #f)
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 0217cf120..e32cc1633 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.106 2000/02/28 04:23:05 cph Exp $
+;;; $Id: unix.scm,v 1.107 2000/03/23 03:19:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -637,7 +637,7 @@ option, instead taking -P <filename>."
   dir					; ignored
   (%quit))
 
-(define (os/set-file-modes-writable! pathname)
+(define (os/set-file-modes-writeable! pathname)
   (set-file-modes! pathname #o777))
 
 (define os/restore-modes-to-updated-file!
diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 4b2025ce9..7de65176f 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.33 2000/03/10 22:23:26 cph Exp $
+;;; $Id: vc.scm,v 1.34 2000/03/23 03:19:25 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -165,9 +165,9 @@ of the buffer."
 (define-command vc-next-action
   "Do the next logical checkin or checkout operation on the current file.
    If the file is not already registered, this registers it for version
-control and then retrieves a writable, locked copy for editing.
+control and then retrieves a writeable, locked copy for editing.
    If the file is registered and not locked by anyone, this checks out
-a writable and locked file ready for editing.
+a writeable and locked file ready for editing.
    If the file is checked out and locked by the calling user, this
 first checks to see if the file has changed since checkout.  If not,
 it performs a revert.