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))