[climacs-cvs] CVS update: climacs/gui.lisp

[Dave Murray]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv10112

Modified Files:
	gui.lisp 
Log Message:
Replaced cloned marks with (setf offsets) to retain mark identity on switching buffers/panes
Date: Tue Jul 19 20:35:22 2005
Author: dmurray

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.157 climacs/gui.lisp:1.158
--- climacs/gui.lisp:1.157	Mon Jul 18 08:09:50 2005
+++ climacs/gui.lisp	Tue Jul 19 20:35:22 2005
@@ -741,7 +741,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)
@@ -841,7 +841,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)))
 
@@ -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))
@@ -1029,7 +1029,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))