From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 6 Feb 1992 22:51:59 +0000 (+0000)
Subject: Bug fix: PAGE-INTERIOR-REGION also broke when (GROUP-END? POINT) was
X-Git-Tag: 20090517-FFI~9852
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf86ad20b5578b34e183b0fec443d476e18fae46;p=mit-scheme.git

Bug fix: PAGE-INTERIOR-REGION also broke when (GROUP-END? POINT) was
true and there was no PAGE-DELIMITER on the same line.
---

diff --git a/v7/src/edwin/lincom.scm b/v7/src/edwin/lincom.scm
index 72492b0a3..12a016f29 100644
--- a/v7/src/edwin/lincom.scm
+++ b/v7/src/edwin/lincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/lincom.scm,v 1.119 1992/02/06 22:48:26 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/lincom.scm,v 1.120 1992/02/06 22:51:59 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -135,10 +135,12 @@ A page boundary is any line whose beginning matches the regexp page-delimiter."
 
 (define (page-interior-region point)
   (if (and (group-end? point)
-	   (mark= (re-match-forward (ref-variable page-delimiter)
-				    (line-start point 0)
-				    point)
-		  point))
+	   (let ((break (re-match-forward
+			 (ref-variable page-delimiter)
+			 (line-start point 0)
+			 point)))
+	     (and break
+		  (mark= break point))))
       (make-region point point)
       (let ((end (forward-page point 1 'LIMIT)))
 	(make-region (let ((start (backward-page end 1 'LIMIT)))