From: Taylor R. Campbell <net/mumble/campbell>
Date: Fri, 23 Feb 2007 11:38:32 +0000 (+0000)
Subject: In the double-quote command, actually insert an escaped double-quote
X-Git-Tag: 20090517-FFI~724
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=258fbf0ffa30ece7a27a5094c78f333e2d3c1f79;p=mit-scheme.git

In the double-quote command, actually insert an escaped double-quote
if inside a string, not an escaped space.
---

diff --git a/v7/src/edwin/paredit.scm b/v7/src/edwin/paredit.scm
index 6e8c1e03a..cb2cd24ff 100644
--- a/v7/src/edwin/paredit.scm
+++ b/v7/src/edwin/paredit.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: paredit.scm,v 1.9 2007/02/23 11:37:09 riastradh Exp $
+$Id: paredit.scm,v 1.10 2007/02/23 11:38:32 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -215,7 +215,7 @@ If in a character literal, do nothing.  This prevents accidentally
                         (flash-sexp-match))
                  ;; Elsewhere in a string: insert escaped.
                  (begin (insert-char #\\ )
-                        (insert-char #\space))))
+                        (insert-char #\"))))
             ((parse-state-in-comment? state)
              (insert-char #\" ))
             ((not (mark-right-char-quoted? (current-point)))