Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28279
Modified Files: window-commands.lisp Log Message: Fixed left- and right-clicking on Climacs panes (I think).
--- /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/19 11:02:22 1.15 +++ /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/27 16:28:08 1.16 @@ -113,7 +113,7 @@ ((window 'pane) (x 'integer) (y 'integer)) (when (and (buffer-pane-p window) (eq window (current-window))) - (setf (offset (mark window)) + (setf (offset (mark (view window))) (click-to-offset window x y)) (drei-commands::com-exchange-point-and-mark) (drei-commands::com-copy-region))) @@ -129,7 +129,7 @@ ((window 'pane) (x 'integer) (y 'integer)) (when (buffer-pane-p window) (other-window window) - (setf (offset (point window)) + (setf (offset (point (view window))) (click-to-offset window x y)) (drei-commands::com-yank)))