Change HIGHLIGHT-REGION-EXCLUDING-INDENTATION to have same interface

as HIGHLIGHT-REGION.

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 19e43ca83012b0f22d94c5e416bf2d69b03d4494..78e9d8e04bec955d487c7a8cf42476c717301190 100644 (file)
--- 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))))))))
 \f
 ;;;; Browsers