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 78e9d8e04bec955d487c7a8cf42476c717301190..a0a05ccdf851f7f89b5fb88d3c7df9c6d6934c1b 100644 (file)
--- 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))))))))
 \f
 ;;;; Browsers
 

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 522b4a61f7324a2a9fe071f959a3b2515fddbc62..19ba3fd3fd15b3c0f686ce08522fc75ebbb3e8c4 100644 (file)
--- 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 7641a086f66a06dd63a925732505e8229fd3f336..f6988990e4ea0c07fca093286e051a1bd457a256 100644 (file)
--- 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))