From: Taylor R. Campbell <net/mumble/campbell>
Date: Wed, 18 Apr 2007 20:27:30 +0000 (+0000)
Subject: Handle definitions that start at the beginning of the buffer in
X-Git-Tag: 20090517-FFI~638
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6cc36bbdd3819849110de875d8eef36dbbad3dd;p=mit-scheme.git

Handle definitions that start at the beginning of the buffer in
MARK-DEFUN command.
---

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