merge: add scrolling by wheel

st.c

@@ -2714,9 +2714,12 @@ draw(void)
 		cx--;
 
 	drawregion(0, 0, term.col, term.row);
-  if (term.scr == 0) {
-	  xdrawcursor(cx, term.c.y, term.line[term.c.y][cx], term.ocx, term.ocy, term.line[term.ocy][term.ocx]);	
-  }
+
+  if (term.scr == 0)
+	  xdrawcursor(cx, term.c.y, term.line[term.c.y][cx],
+			term.ocx, term.ocy, term.line[term.ocy][term.ocx],
+			term.line[term.ocy], term.col);
+
 	term.ocx = cx;
 	term.ocy = term.c.y;
 	xfinishdraw();