From bf8e3e47e1e5567b062cc102f6b5e926c666c061 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Jul 1994 06:22:09 +0000
Subject: [PATCH] From MT: Fix bug in HIGHLIGHT-REGION-EXCLUDING-INDENTATION --
 a fencepost error that occurs when the region ends at the buffer's end.

---
 v7/src/edwin/debug.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 065f57bba..19e43ca83 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.27 1994/03/07 18:52:44 cph Exp $
+;;;	$Id: debug.scm,v 1.28 1994/07/04 06:22:09 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-94 Massachusetts Institute of Technology
 ;;;
@@ -96,11 +96,12 @@
     (let ((start (horizontal-space-end start))
 	  (lend (line-end start 0)))
       (if (mark<= lend end)
- 	  (begin
+	  (begin
 	    (let ((end (horizontal-space-start lend)))
 	      (if (mark< start end)
 		  (highlight-region (make-region start end) #t)))
- 	    (loop (mark1+ lend)))
+	    (if (not (group-end? lend))
+		(loop (mark1+ lend))))
 	  (let ((end (horizontal-space-start end)))
 	    (if (mark< start end)
 		(highlight-region (make-region start end) #t)))))))
-- 
2.25.1