From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Jan 2004 19:11:14 +0000 (+0000)
Subject: Quote some more prefixed atom delimiters.
X-Git-Tag: 20090517-FFI~1720
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed2fb9b621e82c655349321a30ddc596930c05e1;p=mit-scheme.git

Quote some more prefixed atom delimiters.
---

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index d7ce889e5..fb580ed2d 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: modefs.scm,v 1.165 2004/01/16 19:07:15 cph Exp $
+$Id: modefs.scm,v 1.166 2004/01/16 19:11:09 cph Exp $
 
 Copyright 1987,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1998,1999,2000 Massachusetts Institute of Technology
@@ -155,8 +155,8 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\m-\[ 'backward-paragraph)
 (define-key 'fundamental #\m-\\ 'delete-horizontal-space)
 (define-key 'fundamental #\m-\] 'forward-paragraph)
-(define-key 'fundamental #\m-( 'insert-parentheses)
-(define-key 'fundamental #\m-) 'move-past-close-and-reindent)
+(define-key 'fundamental #\m-\( 'insert-parentheses)
+(define-key 'fundamental #\m-\) 'move-past-close-and-reindent)
 (define-key 'fundamental #\m-^ 'delete-indentation)
 (define-key 'fundamental #\m-a 'backward-sentence)
 (define-key 'fundamental #\m-b 'backward-word)
diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 6fd952b43..30a4322cd 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rmail.scm,v 1.75 2003/02/14 18:28:13 cph Exp $
+$Id: rmail.scm,v 1.76 2004/01/16 19:11:14 cph Exp $
 
 Copyright 1991,1992,1993,1994,1995,1999 Massachusetts Institute of Technology
 Copyright 2000,2001,2003 Massachusetts Institute of Technology
@@ -287,8 +287,8 @@ together with two commands to return to regular RMAIL:
 (define-key 'rmail #\w		'rmail-edit-current-message)
 (define-key 'rmail #\c-d	'rmail-delete-backward)
 
-(define-key 'rmail-edit '(#\c-c #\c-c)	'rmail-cease-edit)
-(define-key 'rmail-edit '(#\c-c #\c-])	'rmail-abort-edit)
+(define-key 'rmail-edit '(#\c-c #\c-c) 'rmail-cease-edit)
+(define-key 'rmail-edit '(#\c-c #\c-\]) 'rmail-abort-edit)
 
 (define-command rmail
   "Read and edit incoming mail.