Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv31901/Goatee Modified Files: editing-stream.lisp Log Message: When Goatee's insertion-pointer is set, actually move point. --- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:15:52 1.22 +++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:23:22 1.23 @@ -263,6 +263,9 @@ (setf (point* buffer) (location*-offset buffer pointer)) (redisplay-area area))) +(defmethod (setf stream-insertion-pointer) :after + ((new-value integer) (stream goatee-input-editing-mixin)) + (set-editing-stream-insertion-pointer stream new-value)) (defun %replace-input (stream new-input start end buffer-start rescan rescan-supplied-p