From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Oct 1994 23:10:21 +0000 (+0000)
Subject: Move HIGHLIGHT-REGION-EXCLUDING-INDENTATION to "txtprp.scm" and export
X-Git-Tag: 20090517-FFI~7074
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8627e6e882c3dcf13f6483aa6d40765cfab51b5d;p=mit-scheme.git

Move HIGHLIGHT-REGION-EXCLUDING-INDENTATION to "txtprp.scm" and export
it to the edwin package.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 78e9d8e04..a0a05ccdf 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.29 1994/10/11 23:08:21 cph Exp $
+;;;	$Id: debug.scm,v 1.30 1994/10/11 23:09:58 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-94 Massachusetts Institute of Technology
 ;;;
@@ -90,23 +90,6 @@
  	(highlight-region-excluding-indentation start-mark end-mark))
     (if start-mark (mark-temporary! start-mark))
     (if end-mark (mark-temporary! end-mark))))
-
-(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) highlight))))))))
 
 ;;;; Browsers
 
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 522b4a61f..19ba3fd3f 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.150 1994/09/08 21:36:46 adams Exp $
+$Id: edwin.pkg,v 1.151 1994/10/11 23:10:21 cph Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -892,6 +892,7 @@ MIT in each case. |#
 	  get-text-properties
 	  get-text-property
 	  highlight-region
+	  highlight-region-excluding-indentation
 	  highlight-subgroup
 	  local-comtabs
 	  next-property-change
diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 7641a086f..f6988990e 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: txtprp.scm,v 1.14 1993/10/12 00:18:15 cph Exp $
+;;;	$Id: txtprp.scm,v 1.15 1994/10/11 23:10:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1993 Massachusetts Institute of Technology
 ;;;
@@ -317,6 +317,23 @@
 		      (region-end-index region)
 		      highlight))
 
+(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) highlight))))))))
+
 (define (local-comtabs mark)
   (get-text-property (mark-group mark) (mark-index mark) 'COMMAND-TABLE #f))