;;; -*-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
(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)
()
(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."
(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)
;;; -*-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
;;;
(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)
(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)
(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)))))
\f
;;;; Local Bindings
;;; -*-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
(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?)))
(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)))
;;; -*-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
(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)))
;;; -*-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
(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)))
;;; -*-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
(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) "..."))
;;; -*-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
;;;
(declare (usual-integrations))
\f
-(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)))
;;; -*-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
(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)))
;;; -*-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
;;;
(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)
;;; -*-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
;;;
;;;; 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)))
(->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
;;; -*-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
(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")))
;;; -*-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
;;;
((#\n)
(if (group-clipped? (buffer-group buffer)) " Narrow" ""))
((#\*)
- (cond ((not (buffer-writable? buffer)) "%")
+ (cond ((not (buffer-writeable? buffer)) "%")
((buffer-modified? buffer) "*")
(else "-")))
((#\s)
;;; -*-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
;;;
(declare (usual-integrations))
\f
-(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)))
;;; -*-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
;;;
'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."
(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)))))
\f
;;; -*-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
(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)))
;;; -*-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
\f
(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
(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)))
(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))))
(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))))
(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))))))
(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)))))))
;;; -*-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
(marks '())
start-mark
end-mark
- (writable? #t)
+ (writeable? #t)
display-start
display-end
(start-changes-index #f)
(define-integrable (group-display-end-index? group index)
(fix:>= index (group-display-end-index group)))
\f
-(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)))
;;; -*- 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
;;;
;;; 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))
(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)))
\f
(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)))
;;; -*-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
;;;
(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)
(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)))
(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)
;;; -*-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
;;;
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!
;;; -*-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
;;;
(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.
projects / mit-scheme.git / commitdiff