[climacs-cvs] CVS climacs

[thenriksen]

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