22 Nov
2006
22 Nov
'06
2:15 p.m.
Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv30056/Goatee Modified Files: editing-stream.lisp Log Message: Added implementions of `redraw-input-buffer'. We ignore the `start-offset' argument, though. --- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2005/02/22 14:00:18 1.21 +++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:15:52 1.22 @@ -399,3 +399,7 @@ (make-input-editing-stream-snapshot stream area) (redisplay-area area)))) nil) + +(defmethod redraw-input-buffer ((stream goatee-input-editing-mixin) &optional (start-position 0)) + (declare (ignore start-position)) + (redisplay-area (area stream)))