From 91eaf4261c391b0f627443b116b0605c9a5e2596 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Nov 1992 18:00:43 +0000
Subject: [PATCH] Fix spelling: "writeable" -> "writable".

---
 v7/src/edwin/bufcom.scm   |  8 ++++----
 v7/src/edwin/buffer.scm   | 14 +++++++-------
 v7/src/edwin/bufmnu.scm   |  6 +++---
 v7/src/edwin/debuge.scm   |  4 ++--
 v7/src/edwin/dired.scm    |  4 ++--
 v7/src/edwin/evlcom.scm   |  6 +++---
 v7/src/edwin/filcom.scm   |  4 ++--
 v7/src/edwin/fileio.scm   |  4 ++--
 v7/src/edwin/info.scm     |  4 ++--
 v7/src/edwin/modlin.scm   |  6 +++---
 v7/src/edwin/struct.scm   |  4 ++--
 v7/src/edwin/techinfo.scm |  6 +++---
 12 files changed, 35 insertions(+), 35 deletions(-)

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index 2ef455f11..07663d820 100644
--- a/v7/src/edwin/bufcom.scm
+++ b/v7/src/edwin/bufcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufcom.scm,v 1.98 1992/10/01 15:55:34 arthur Exp $
+;;;	$Id: bufcom.scm,v 1.99 1992/11/12 18:00:09 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -192,9 +192,9 @@ When locked, the buffer's major mode may not be changed."
   ()
   (lambda ()
     (let ((buffer (current-buffer)))
-      (if (buffer-writeable? buffer)
+      (if (buffer-writable? buffer)
 	  (set-buffer-read-only! buffer)
-	  (set-buffer-writeable! buffer)))))
+	  (set-buffer-writable! buffer)))))
 
 (define-command no-toggle-read-only
   "Display warning indicating that this buffer may not be modified."
@@ -205,7 +205,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-writeable? buffer)
+	   (buffer-writable? 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 b8e0d7f9b..cb73d78ef 100644
--- a/v7/src/edwin/buffer.scm
+++ b/v7/src/edwin/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: buffer.scm,v 1.156 1992/09/29 21:08:56 cph Exp $
+;;;	$Id: buffer.scm,v 1.157 1992/11/12 18:00:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -121,7 +121,7 @@ The buffer is guaranteed to be deselected at that time."
 	  (loop (cdr windows))))))
 
 (define (buffer-reset! buffer)
-  (set-buffer-writeable! buffer)
+  (set-buffer-writable! buffer)
   (region-delete! (buffer-region buffer))
   (buffer-not-modified! buffer)
   (let ((group (buffer-group buffer)))
@@ -311,11 +311,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-writeable? buffer)
+(define-integrable (buffer-writable? buffer)
   (not (buffer-read-only? buffer)))
 
-(define (set-buffer-writeable! buffer)
-  (set-group-writeable! (buffer-group buffer))
+(define (set-buffer-writable! buffer)
+  (set-group-writable! (buffer-group buffer))
   (buffer-modeline-event! buffer 'BUFFER-MODIFIABLE))
 
 (define (set-buffer-read-only! buffer)
@@ -330,13 +330,13 @@ The buffer is guaranteed to be deselected at that time."
 		    (set! outside (group-read-only? group))
 		    (if inside
 			(set-group-read-only! group)
-			(set-group-writeable! group)))
+			(set-group-writable! group)))
 		  thunk
 		  (lambda ()
 		    (set! inside (group-read-only? group))
 		    (if outside
 			(set-group-read-only! group)
-			(set-group-writeable! group))))))
+			(set-group-writable! group))))))
 
 ;;;; Local Bindings
 
diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index c54e30418..c4ed5a882 100644
--- a/v7/src/edwin/bufmnu.scm
+++ b/v7/src/edwin/bufmnu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufmnu.scm,v 1.120 1992/09/10 02:44:14 cph Exp $
+;;;	$Id: bufmnu.scm,v 1.121 1992/11/12 18:00:15 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -82,7 +82,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-writeable! buffer)
+  (set-buffer-writable! buffer)
   (region-delete! (buffer-region buffer))
   (fill-buffer-menu! buffer (buffer-get buffer 'REVERT-BUFFER-FILES-ONLY?)))
 
@@ -100,7 +100,7 @@ Type q immediately to make the buffer menu go away."
 			  (list-buffers-format
 			   (if (eq? buffer current) "." " ")
 			   (if (buffer-modified? buffer) "*" " ")
-			   (if (buffer-writeable? buffer) " " "%")
+			   (if (buffer-writable? buffer) " " "%")
 			   (buffer-name buffer)
 			   (write-to-string
 			    (group-length (buffer-group buffer)))
diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 04d3555b1..0c81c34a5 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debuge.scm,v 1.48 1992/11/09 21:23:02 cph Exp $
+;;;	$Id: debuge.scm,v 1.49 1992/11/12 18:00:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -52,7 +52,7 @@
 
 (define (debug-save-buffer buffer)
   (if (and (buffer-modified? buffer)
-	   (buffer-writeable? buffer)
+	   (buffer-writable? 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 04bdb01ef..acdf9f420 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.127 1992/09/23 23:04:55 jinx Exp $
+;;;	$Id: dired.scm,v 1.128 1992/11/12 18:00:20 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -190,7 +190,7 @@ Type `h' after entering dired for more info."
   exact-nonnegative-integer?)
 
 (define (fill-dired-buffer! buffer pathname)
-  (set-buffer-writeable! buffer)
+  (set-buffer-writable! buffer)
   (region-delete! (buffer-region buffer))
   (temporary-message
    (string-append "Reading directory " (->namestring pathname) "..."))
diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 58af111e1..0a8494c2e 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/evlcom.scm,v 1.38 1992/08/18 23:31:58 cph Exp $
+;;;	$Id: evlcom.scm,v 1.39 1992/11/12 18:00:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -574,14 +574,14 @@ FIT           Error messages appear in typein window if they fit;
 		      (set! outside (group-read-only? group))
 		      (if inside
 			  (set-group-read-only! group)
-			  (set-group-writeable! group)))
+			  (set-group-writable! group)))
 		    (lambda ()
 		      (procedure buffer))
 		    (lambda ()
 		      (set! inside (group-read-only? group))
 		      (if outside
 			  (set-group-read-only! group)
-			  (set-group-writeable! group)))))))
+			  (set-group-writable! 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 aeeea525b..b5bb04869 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.169 1992/09/30 02:27:55 jinx Exp $
+;;;	$Id: filcom.scm,v 1.170 1992/11/12 18:00:27 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -232,7 +232,7 @@ until one of them returns non-false."
 
 (define (after-find-file buffer pathname)
   (if (file-writable? pathname)
-      (set-buffer-writeable! buffer)
+      (set-buffer-writable! buffer)
       (set-buffer-read-only! buffer))
   (setup-buffer-auto-save! buffer)
   (normal-mode buffer true)
diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index c838939fc..5a1a817aa 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: fileio.scm,v 1.109 1992/09/30 17:50:04 cph Exp $
+;;;	$Id: fileio.scm,v 1.110 1992/11/12 18:00:30 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -49,7 +49,7 @@
 ;;;; Input
 
 (define (read-buffer buffer pathname visit?)
-  (set-buffer-writeable! buffer)
+  (set-buffer-writable! buffer)
   (let ((truename
 	 (catch-file-errors (lambda () false)
 			    (lambda () (->truename pathname)))))
diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index 772edf5fa..7f0f7bf30 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/info.scm,v 1.111 1992/06/10 18:03:59 sybok Exp $
+;;;	$Id: info.scm,v 1.112 1992/11/12 18:00:33 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -288,7 +288,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-writeable! (current-buffer))
+    (set-buffer-writable! (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 dd1e59c45..b4cc3563f 100644
--- a/v7/src/edwin/modlin.scm
+++ b/v7/src/edwin/modlin.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modlin.scm,v 1.14 1992/04/08 17:57:46 cph Exp $
+;;;	$Id: modlin.scm,v 1.15 1992/11/12 18:00:37 cph Exp $
 ;;;
-;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -264,7 +264,7 @@ If #F, the normal method is used."
 	   " Narrow"
 	   ""))
       ((#\*)
-       (cond ((not (buffer-writeable? buffer)) "%")
+       (cond ((not (buffer-writable? buffer)) "%")
 	     ((buffer-modified? buffer) "*")
 	     (else "-")))
       ((#\s)
diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index bc4c53501..6571be52b 100644
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/struct.scm,v 1.80 1992/02/04 04:04:15 cph Exp $
+;;;	$Id: struct.scm,v 1.81 1992/11/12 18:00:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -164,7 +164,7 @@
 (define-integrable (set-group-read-only! group)
   (vector-set! group group-index:read-only? true))
 
-(define-integrable (set-group-writeable! group)
+(define-integrable (set-group-writable! group)
   (vector-set! group group-index:read-only? false))
 
 (define-integrable (set-group-marks! group marks)
diff --git a/v7/src/edwin/techinfo.scm b/v7/src/edwin/techinfo.scm
index ede02f01d..c13dc38a7 100644
--- a/v7/src/edwin/techinfo.scm
+++ b/v7/src/edwin/techinfo.scm
@@ -36,7 +36,7 @@
 ;;;
 ;;; Author: Brian A. LaMacchia -- bal@zurich.ai.mit.edu
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/techinfo.scm,v 1.2 1992/01/10 19:03:41 bal Exp $
+;;; $Id: techinfo.scm,v 1.3 1992/11/12 18:00:43 cph Exp $
 ;;;
 
 (define-variable techinfo-web-buffer 
@@ -186,7 +186,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-writeable! (current-buffer))
+  (set-buffer-writable! (current-buffer))
   (set-current-point! (buffer-start (current-buffer)))
   (kill-string (buffer-start (current-buffer))
 	       (buffer-end (current-buffer)))
@@ -213,7 +213,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-writeable! (current-buffer))
+  (set-buffer-writable! (current-buffer))
   (set-current-point! (buffer-start (current-buffer)))
   (kill-string (buffer-start (current-buffer))
 	       (buffer-end (current-buffer)))
-- 
2.25.1