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 6e8c1e03ab3795151aad3c73bee29cedfecc03be..cb2cd24ffafe8a2daa1d4628d8ad080b95b1b202 100644 (file)
--- 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)))