From 258fbf0ffa30ece7a27a5094c78f333e2d3c1f79 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Fri, 23 Feb 2007 11:38:32 +0000
Subject: [PATCH] In the double-quote command, actually insert an escaped
 double-quote if inside a string, not an escaped space.

---
 v7/src/edwin/paredit.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1