From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Oct 1993 01:12:23 +0000 (+0000)
Subject: Fix crufty problem with highlighting -- indentation was highlighted
X-Git-Tag: 20090517-FFI~7703
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=019dcecf7f83cd26af1a2fcad0249105d80e233e;p=mit-scheme.git

Fix crufty problem with highlighting -- indentation was highlighted
instead of text!
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index bf5c61664..9e961e2bb 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.23 1993/10/26 00:37:57 cph Exp $
+;;;	$Id: debug.scm,v 1.24 1993/10/26 01:12:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -93,13 +93,15 @@
 
 (define (highlight-region-excluding-indentation start end)
   (let loop ((start start))
-    (let ((lend (line-end start 0)))
+    (let ((start (horizontal-space-end start))
+	  (lend (line-end start 0)))
       (if (mark<= lend end)
  	  (begin
- 	    (highlight-region (horizontal-space-region start) #t)
+	    (let ((end (horizontal-space-start lend)))
+	      (if (mark< start end)
+		  (highlight-region (make-region start end) #t)))
  	    (loop (mark1+ lend)))
-	  (let ((start (horizontal-space-end start))
-		(end (horizontal-space-start end)))
+	  (let ((end (horizontal-space-start end)))
 	    (if (mark< start end)
 		(highlight-region (make-region start end) #t)))))))