Fix spelling: "writeable" -> "writable".

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index 2ef455f11bb92c1f72683bfee62fe77490be890e..07663d82069088d83ceb44eedd72c5c28c0901c3 100644 (file)
--- 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 b8e0d7f9b8dc8a0e1bd3cc5a8decbd258d8a30e8..cb73d78efa3038a557795e66558564cf882923d1 100644 (file)
--- 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))))))
 \f
 ;;;; Local Bindings
 

diff --git a/v7/src/edwin/bufmnu.scm b/v7/src/edwin/bufmnu.scm
index c54e30418d9a44410f030439df029204c933ed1b..c4ed5a8825b064c331239cad5e1a5ec17c6d7153 100644 (file)
--- 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 04d3555b1e4eb0d2960dea09e17b1f5303d0b350..0c81c34a5d88ad0b3d7e3b0059d48104949fe539 100644 (file)
--- 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 04bdb01ef2119a1308b56cb01678ed460b53032c..acdf9f4206f3ee550536635612a2407cb22705fd 100644 (file)
--- 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 58af111e1d464ad0a0e604a4f59c828a749c22f0..0a8494c2e9c6e18e3a38b8c45d7a48d93e44513a 100644 (file)
--- 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 aeeea525bd7183310ec37572b04ed84bc9aaf17a..b5bb0486991ccbc81a5f47e867ac2e3909404f1f 100644 (file)
--- 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 c838939fc2fba4e21a614779e50e19d69560a6e1..5a1a817aa0114eec119ec9460d57e52e26b909a5 100644 (file)
--- 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 772edf5fa2da65a6bd497e85fda33cc85bba9079..7f0f7bf30b0a5a4d7ee57b96578163d366c922b4 100644 (file)
--- 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 dd1e59c450f52ff2dd4a20896e7cb09adcd53d6e..b4cc3563f52af99b49e2bc6e3ec16d8b2924d9ba 100644 (file)
--- 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 bc4c5350117c38cae351c8d0c9165ccaed2ffb54..6571be52b919180351a0aaf9a1fa6b058917031d 100644 (file)
--- 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 ede02f01d1681051ec4732a4b3339a5a58aa0717..c13dc38a7e2ea7cf90a093843df3a807b38984db 100644 (file)
--- 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)))