Quote some more prefixed atom delimiters.

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index d7ce889e515e97e7e3ffb597607239b79c34892b..fb580ed2dc55eb58178a636dee143c026d95b6d6 100644 (file)
--- 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 6fd952b439d76a9260e7ffa76d3baa5184fbad71..30a4322cdc2a74bed476b0bd798b96c9bf837294 100644 (file)
--- 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)
 \f
 (define-command rmail
   "Read and edit incoming mail.