From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Nov 2005 06:58:50 +0000 (+0000)
Subject: Revert "optimization" from previous changes.
X-Git-Tag: 20090517-FFI~1189
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=193a639bbf83bf35623b309a49ff0ad21dd7b5b4;p=mit-scheme.git

Revert "optimization" from previous changes.
---

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 85de37467..22a1b45d0 100644
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bufwin.scm,v 1.315 2005/11/06 16:30:54 cph Exp $
+$Id: bufwin.scm,v 1.316 2005/11/07 06:58:45 cph Exp $
 
 Copyright 1987,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1999,2000,2002 Massachusetts Institute of Technology
@@ -231,13 +231,19 @@ USA.
     (set! point point*)))
 
 (define (%set-window-point-index! window index)
+  #| Optimization causes lossage.  -- cph
   (let ((point (%window-point window)))
     (if point
 	(set-mark-index! point index)
 	(%set-window-point! window
 			    (make-permanent-mark (%window-group window)
 						 index
-						 #t)))))
+						 #t))))
+  |#
+  (%set-window-point! window
+		      (make-permanent-mark (%window-group window)
+					   index
+					   #t)))
 
 (define (set-window-point-index! window index)
   (%set-window-point-index! window index)
diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index 824a260b6..29e5da4bf 100644
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: struct.scm,v 1.100 2005/11/06 16:17:00 cph Exp $
+$Id: struct.scm,v 1.101 2005/11/07 06:58:50 cph Exp $
 
 Copyright 1985,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1999,2000,2001,2003,2005 Massachusetts Institute of Technology
@@ -179,7 +179,9 @@ USA.
   (set-group-point-index! group (mark-index point)))
 
 (define-integrable (set-group-point-index! group index)
-  (set-mark-index! (group-point group) index))
+  ;; Optimization causes lossage.  -- cph
+  ;; (set-mark-index! (group-point group) index)
+  (set-group-%point! group (make-permanent-mark group index #t)))
 
 (define (group-absolute-start group)
   (make-temporary-mark group 0 #f))