Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.143
diff -u -r1.143 gui.lisp
--- gui.lisp	30 May 2005 09:33:39 -0000	1.143
+++ gui.lisp	11 Jun 2005 19:26:11 -0000
@@ -718,7 +718,7 @@
 			  :prompt "Find File"))
 	(buffer (make-instance 'climacs-buffer))
 	(pane (current-window)))
-    (setf (point (buffer pane)) (clone-mark (point pane)))
+    (setf (offset (point (buffer pane))) (offset (point pane)))
     (push buffer (buffers *application-frame*))
     (setf (buffer (current-window)) buffer)
     (setf (syntax buffer)
@@ -818,7 +818,7 @@
   (let ((buffer (accept 'buffer
 			:prompt "Switch to buffer"))
 	(pane (current-window)))
-    (setf (point (buffer pane)) (clone-mark (point pane)))
+    (setf (offset (point (buffer pane))) (offset (point pane)))
     (setf (buffer pane) buffer)
     (full-redisplay pane)))
 
@@ -998,7 +998,7 @@
     (multiple-value-bind (vbox new-pane) (make-pane-constellation)
       (let* ((current-window (current-window))
 	     (constellation-root (parent3 current-window)))
-        (setf (point (buffer current-window)) (clone-mark (point current-window))
+        (setf (offset (point (buffer current-window))) (offset (point current-window))
 	      (buffer new-pane) (buffer current-window)
               (auto-fill-mode new-pane) (auto-fill-mode current-window)
               (auto-fill-column new-pane) (auto-fill-column current-window))
@@ -1013,7 +1013,7 @@
     (multiple-value-bind (vbox new-pane) (make-pane-constellation)
       (let* ((current-window (current-window))
 	     (constellation-root (parent3 current-window)))
-        (setf (point (buffer current-window)) (clone-mark (point current-window))
+        (setf (offset (point (buffer current-window))) (offset (point current-window))
 	      (buffer new-pane) (buffer current-window)
               (auto-fill-mode new-pane) (auto-fill-mode current-window)
               (auto-fill-column new-pane) (auto-fill-column current-window))
