[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv30180

Modified Files:
	input-editing.lisp 
Log Message:
Fix bug that sometimes caused previous prompts to be covered by typeout.


--- /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/04 19:06:17	1.72
+++ /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/04 19:15:35	1.73
@@ -222,7 +222,7 @@
       (map-over-output-records-overlapping-region
        #'(lambda (record)
            (multiple-value-bind (record-x record-y) (output-record-position record)
-             (when (>= (+ record-y (bounding-rectangle-height record)) y)
+             (when (> (+ record-y (bounding-rectangle-height record)) y)
                (setf (output-record-position record)
                      (values record-x (+ record-y delta-y))))))
        (stream-output-history sheet)