From bdcc172057bc80ef475297aa209ca4c43ebca3ec Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Thu, 6 Feb 1992 22:48:26 +0000 Subject: [PATCH] Bug fix: PAGE-INTERIOR-REGION broke on the last page (i.e., beyond the last PAGE-DELIMITER on the page). --- v7/src/edwin/lincom.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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)))))) -- 2.25.1