Revert "optimization" from previous changes.

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 85de3746761f2432b8e4a7085ba0deb83c29321c..22a1b45d0a7ad4cca6342e2094d7b0a11f32c300 100644 (file)
--- 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 824a260b669df04e492a133469b65c5019e2eb9f..29e5da4bf8141bb55777a4d0ea19ebd14f86e833 100644 (file)
--- 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))