procedure eve_newtop
! Make the current line of the window the new top line by scrolling
! the window.
! Author: Allen A. Watson.
! Date: November 24, 1987

local where_we_started;

where_we_started := mark(none);
scroll(current_window,(get_info(current_window,"current_row") - 1));
position(where_we_started);
endprocedure;