From 13efd280b444a83dc40bc09742018022bf60149e Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Thu, 28 Dec 2006 22:28:20 +0000
Subject: [PATCH] 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.

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

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