From: Taylor R. Campbell <net/mumble/campbell>
Date: Thu, 28 Dec 2006 22:28:20 +0000 (+0000)
Subject: Fix bug in paredit forward character deletion at the beginning of the
X-Git-Tag: 20090517-FFI~822
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=13efd280b444a83dc40bc09742018022bf60149e;p=mit-scheme.git

Fix bug in paredit forward character deletion at the beginning of the
buffer: formerly it would cause a hardware trap, because it would ask
for the non-existent character before the point, without checking
whether there is in fact a valid character position in the buffer
there.
---

diff --git a/v7/src/edwin/paredit.scm b/v7/src/edwin/paredit.scm
index 5819009a8..91b4379b2 100644
--- a/v7/src/edwin/paredit.scm
+++ b/v7/src/edwin/paredit.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: paredit.scm,v 1.7 2006/07/03 19:41:23 riastradh Exp $
+$Id: paredit.scm,v 1.8 2006/12/28 22:28:20 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -293,7 +293,8 @@ With a prefix argument, simply delete a character forward, without
                          (char=? syn #\" )))
                    ;; Enter into an S-expression forward.
                    (set-current-point! (mark1+ point)))
-                  ((and (not (mark-right-char-quoted?
+                  ((and (not (group-start? point))
+			(not (mark-right-char-quoted?
                               (mark-1+ point)))
                         (char=? (char-syntax right)
                                 #\) )