From f6cc36bbdd3819849110de875d8eef36dbbad3dd Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Wed, 18 Apr 2007 20:27:30 +0000
Subject: [PATCH] Handle definitions that start at the beginning of the buffer
 in MARK-DEFUN command.

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

diff --git a/v7/src/edwin/lspcom.scm b/v7/src/edwin/lspcom.scm
index 4355269f6..616243666 100644
--- a/v7/src/edwin/lspcom.scm
+++ b/v7/src/edwin/lspcom.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lspcom.scm,v 1.165 2007/01/05 21:19:23 cph Exp $
+$Id: lspcom.scm,v 1.166 2007/04/18 20:27:30 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -164,7 +164,8 @@ An end of a defun is found by moving forward from the beginning of one."
 	  (push-current-mark! point)
 	  (push-current-mark! end)
 	  (set-current-point!
-	   (or (re-search-backward "^\n" start (mark-1+ start))
+	   (or (and (not (group-start? start))
+                    (re-search-backward "^\n" start (mark-1+ start)))
 	       start)))))))
 
 (define-command align-defun
-- 
2.25.1