From: Brian A. LaMacchia Date: Thu, 12 Nov 1992 19:37:19 +0000 (+0000) Subject: writeable -> writable X-Git-Tag: 20090517-FFI~8781 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df8881b19f21c24a995a4942d903642e1efad074;p=mit-scheme.git writeable -> writable --- diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm index 2378c1955..7377fc2d8 100644 --- a/v7/src/edwin/rmail.scm +++ b/v7/src/edwin/rmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.20 1992/11/05 16:41:22 bal Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.21 1992/11/12 19:36:15 bal Exp $ ;;; ;;; Copyright (c) 1991-92 Massachusetts Institute of Technology ;;; @@ -447,10 +447,10 @@ and use that file as the inbox." (and (file-exists? pathname) (let ((mark (mark-left-inserting-copy mark))) (insert-file mark pathname) - (if (let ((char (mark-left-char mark))) - (and char - (not (char=? char #\newline)))) - (insert-newline mark)) +; (if (let ((char (mark-left-char mark))) +; (and char +; (not (char=? char #\newline)))) +; (insert-newline mark)) (mark-temporary! mark) pathname))))) (let ((source (->pathname filename))) @@ -1390,7 +1390,7 @@ buffer visiting that file." 'RMAIL-OLD-TEXT (extract-string (buffer-start buffer) (buffer-end buffer))) - (set-buffer-writeable! buffer) + (set-buffer-writable! buffer) (message (substitute-command-keys "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort" @@ -1894,7 +1894,7 @@ Leaves original message, deleted, before the undigestified messages." (sit-for 1) end) - (with-text-clipped start end (lambda () (loop start 0)))) + (with-text-clipped start end (lambda () (loop (skip-chars-forward "\n" start end) 0)))) (define (convert-buffer-to-babyl-format buffer) (with-buffer-open buffer diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm index fb385e020..7941d7831 100644 --- a/v7/src/edwin/rmailsrt.scm +++ b/v7/src/edwin/rmailsrt.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.7 1992/09/24 22:13:25 bal Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.8 1992/11/12 19:36:05 bal Exp $ ;;; ;;; Copyright (c) 1991 Massachusetts Institute of Technology ;;; @@ -133,7 +133,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-writeable! (current-buffer)) + (set-buffer-writable! (current-buffer)) (let loop ((n 0) (the-memo (msg-memo/first (current-msg-memo)))) (let ((next (msg-memo/next the-memo))) @@ -188,10 +188,14 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." (define rmail-sortable-date-string (lambda (date) - (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3") - ("APR" . " 4")("MAY" . " 5")("JUN" . " 6") - ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9") - ("OCT" . "10")("NOV" . "11")("DEC" . "12"))) + (let ((month '(("JAN" . "01")("FEB" . "02")("MAR" . "03") + ("APR" . "04")("MAY" . "05")("JUN" . "06") + ("JUL" . "07")("AUG" . "08")("SEP" . "09") + ("OCT" . "10")("NOV" . "11")("DEC" . "12") + ("JANUARY" . "01")("FEBRUARY" . "02")("MARCH" . "03") + ("APRIL" . "04")("JUNE" . "06")("JULY" . "07") + ("AUGUST" . "08")("SEPTEMBER" . "09")("OCTOBER" . "10") + ("NOVEMBER" . "11")("DECEMBER" . "12"))) (date (or date ""))) ;; Can understand the following styles: ;; (1) 14 Apr 89 03:20:12 GMT @@ -203,7 +207,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." ;; made seconds optional since research.att.com doesn't send it out (if (re-search-string-forward (re-compile-pattern - "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\)[ ]+\\([0-9]+\\):\\([0-9]+\\)\\([0-9:]*\\)" true) + "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\)[ ]+\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\):?\\([0-9]*\\)" true) true false date) (string-append ;; Year @@ -232,10 +236,8 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." ;; Time (string-pad-left (substring date (re-match-start-index 4) (re-match-end-index 4)) 2 #\0) - (string-pad-left - (substring date (re-match-start-index 5) (re-match-end-index 5)) 2 #\0) - (string-pad-left - (substring date (re-match-start-index 6) (re-match-end-index 6)) 2 #\0)) + (substring date (re-match-start-index 5) (re-match-end-index 5)) + (substring date (re-match-start-index 6) (re-match-end-index 6))) ;; Cannot understand DATE string. date)))) diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm index 5648298ce..ea2729dd0 100644 --- a/v7/src/edwin/rmailsum.scm +++ b/v7/src/edwin/rmailsum.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.25 1992/11/11 19:11:56 bal Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.26 1992/11/12 19:37:19 bal Exp $ ;;; ;;; Copyright (c) 1991-92 Massachusetts Institute of Technology ;;; @@ -48,7 +48,7 @@ (define-variable rmailsum-rcs-header "The RCS header of the rmailsum.scm file." - "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.25 1992/11/11 19:11:56 bal Exp $" + "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.26 1992/11/12 19:37:19 bal Exp $" string?) (define-variable-per-buffer rmail-buffer @@ -196,7 +196,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-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))) @@ -508,7 +508,7 @@ Entering this mode calls value of hook variable rmail-summary-mode-hook." (begin (if (char=? (mark-right-char end) #\-) (begin - (set-buffer-writeable! (current-buffer)) + (set-buffer-writable! (current-buffer)) (mark-delete-right-char! end) (insert-char #\space end) (set-buffer-read-only! (current-buffer)))) @@ -593,7 +593,7 @@ shown in the RMAIL buffer, warp to the appropriate message." (begin (if (char=? (mark-right-char end) #\-) (begin - (set-buffer-writeable! (current-buffer)) + (set-buffer-writable! (current-buffer)) (mark-delete-right-char! end) (insert-char #\space end) (set-buffer-read-only! (current-buffer)))) @@ -625,7 +625,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-writeable! (current-buffer)) + (set-buffer-writable! (current-buffer)) (delete-string the-mark (mark1+ the-mark)) (insert-string "D" the-mark) (set-buffer-read-only! (current-buffer)))))) @@ -664,7 +664,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-writeable! (current-buffer)) + (set-buffer-writable! (current-buffer)) (delete-string the-mark (mark1+ the-mark)) (insert-string " " the-mark) (set-buffer-read-only! (current-buffer)))))))