! Go from two windows to one window.  Do nothing if only one window on screen.

procedure eve_one_window

local this_position,		! Marker for current cursor position
      this_buffer;		! Current buffer

eve$check_bad_window;
this_position := mark (none);	! ensure VAXTPU knows current position
this_buffer := current_buffer;
if eve$x_number_of_windows = 1 then
    message ("Only one window on screen");
else
MESSAGE("unmapping top");
    unmap (eve$top_window);
MESSAGE("unmapping bottom");
    unmap (eve$bottom_window);
    map (eve$main_window, this_buffer);
    eve$set_status_line (eve$main_window);
    position (this_position);
    eve$x_number_of_windows := 1;
    eve$x_this_window := eve$main_window;
endif;

endprocedure;