From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Nov 1992 18:00:43 +0000 (+0000)
Subject: Fix spelling: "writeable" -> "writable".
X-Git-Tag: 20090517-FFI~8782
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=91eaf4261c391b0f627443b116b0605c9a5e2596;p=mit-scheme.git
Fix spelling: "writeable" -> "writable".
---
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)))