From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 6 Feb 1992 22:48:26 +0000 (+0000)
Subject: Bug fix: PAGE-INTERIOR-REGION broke on the last page (i.e., beyond the
X-Git-Tag: 20090517-FFI~9853
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bdcc172057bc80ef475297aa209ca4c43ebca3ec;p=mit-scheme.git

Bug fix: PAGE-INTERIOR-REGION broke on the last page (i.e., beyond the
last PAGE-DELIMITER on the page).
---

diff --git a/v7/src/edwin/lincom.scm b/v7/src/edwin/lincom.scm
index 6b99cf2bb..72492b0a3 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.118 1992/01/06 20:28:30 cph Exp $
+;;;	$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 $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -149,11 +149,12 @@ A page boundary is any line whose beginning matches the regexp page-delimiter."
 			   start))
 		     (let ((end* (line-start end 0)))
 		       (if (and (mark<= point end*)
-				(mark= (re-match-forward
-					(ref-variable page-delimiter)
-					end*
-					end)
-				       end))
+				(let ((break (re-match-forward
+					      (ref-variable page-delimiter)
+					      end*
+					      end)))
+				  (and break
+				       (mark= break end))))
 			   end*
 			   end))))))