From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 17 Apr 1992 21:09:16 +0000 (+0000)
Subject: Fix bug in TOPIC-REGION.
X-Git-Tag: 20090517-FFI~9476
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f964a5b8f6da23be4a63307e1c23810d239761b;p=mit-scheme.git

Fix bug in TOPIC-REGION.
---

diff --git a/v7/src/edwin/outline.scm b/v7/src/edwin/outline.scm
index 70c9fefd5..dc831fac0 100644
--- a/v7/src/edwin/outline.scm
+++ b/v7/src/edwin/outline.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/outline.scm,v 1.2 1992/04/17 20:54:59 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/outline.scm,v 1.3 1992/04/17 21:09:16 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -191,7 +191,7 @@ match, the deeper our level in the outline."
 			    (re-match-start 0)
 			    (next-topic (re-match-end 0))))))
 	       (group-end mark)))
-	  (current-region)))))
+	  (make-region (group-start mark) (group-end mark))))))
 
 (define-command narrow-to-topic
   "Narrow to show the current outline level only."