Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv23067

Modified Files: pane.lisp Log Message: Added the missing cases to highlight-region.

--- /project/climacs/cvsroot/climacs/pane.lisp 2006/05/06 20:40:10 1.40 +++ /project/climacs/cvsroot/climacs/pane.lisp 2006/05/07 06:40:19 1.41 @@ -615,6 +615,24 @@ (multiple-value-bind (mark-x mark-y) (offset-to-screen-position offset2 pane) (cond + ;; mark and point are above the screen + ((and (null cursor-y) (null mark-y) + (null cursor-x) (null mark-x)) + nil) + ;; mark and point are below the screen + ((and (null cursor-y) (null mark-y) + cursor-x mark-x) + nil) + ;; mark or point is above the screen, and point or mark below it + ((and (null cursor-y) (null mark-y) + (or (and cursor-x (null mark-x)) + (and (null cursor-x) mark-y))) + (updating-output (pane :unique-id -3) + (draw-rectangle* pane + 0 0 + (stream-text-margin pane) (bounding-rectangle-height + (window-viewport pane)) + :ink ink))) ;; mark is above the top of the screen ((and (null mark-y) (null mark-x)) (updating-output (pane :unique-id -3)