From 4f2b70dff53c4b1a0793b691367e02466b27f647 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 11 Oct 1994 23:08:21 +0000 Subject: [PATCH] Change HIGHLIGHT-REGION-EXCLUDING-INDENTATION to have same interface as HIGHLIGHT-REGION. --- v7/src/edwin/debug.scm | 30 ++++++++++++++++-------------- 1 file changed, 16 insertions(+), 14 deletions(-) diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm index 19e43ca83..78e9d8e04 100644 --- a/v7/src/edwin/debug.scm +++ b/v7/src/edwin/debug.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: debug.scm,v 1.28 1994/07/04 06:22:09 cph Exp $ +;;; $Id: debug.scm,v 1.29 1994/10/11 23:08:21 cph Exp $ ;;; ;;; Copyright (c) 1992-94 Massachusetts Institute of Technology ;;; @@ -91,20 +91,22 @@ (if start-mark (mark-temporary! start-mark)) (if end-mark (mark-temporary! end-mark)))) -(define (highlight-region-excluding-indentation start end) - (let loop ((start start)) - (let ((start (horizontal-space-end start)) - (lend (line-end start 0))) - (if (mark<= lend end) - (begin - (let ((end (horizontal-space-start lend))) +(define (highlight-region-excluding-indentation region highlight) + (let ((start (region-start region)) + (end (region-end region))) + (let loop ((start start)) + (let ((start (horizontal-space-end start)) + (lend (line-end start 0))) + (if (mark<= lend end) + (begin + (let ((end (horizontal-space-start lend))) + (if (mark< start end) + (highlight-region (make-region start end) highlight))) + (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))) - (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))))))) + (highlight-region (make-region start end) highlight)))))))) ;;;; Browsers -- 2.25.1