procedure eve_text_margins
     eve_set_left_margin(6);
     eve_set_right_margin(75);
     endprocedure;
     procedure eve_full_margins
     eve_set_left_margin(1);
     eve_set_right_margin(79);
     endprocedure;

     procedure eve_dont_really_exit
     local answer;
     message ("A to Attach, E to Exit, C to Cancel, Q to Quit: ");
     answer := 
       read_char;
     edit(answer,UPPER); ! Insure upper case
     CASE answer from "A" to "Q"
     	["A"] : eve_attach;
	["C"] : return;
     	["E"] : exit;
     	["Q"] : quit;
     	[INRANGE] : message ("Invalid entry; Use F10 to REALLY exit");
     		    return;
     	[OUTRANGE] : message ("Invalid entry; Use F10 to REALLY exit");
     		    return;
	endcase;
     endprocedure
     
eve$x_word_separators :=	! Word separators: space, horizontal tab,
				! form feed, carriage return, vertical tab,
				! and line feed. Added by AAW are 
    " 	

/";			! parens.! brackets, slash removed 11/15/87
eve$x_default_left_margin := 6; ! Default left margin for new buffers.
eve$x_default_right_margin := 5;! Amount to subtract from screen width for
				! right margin of new buffers.
eve_set_eag_markers;
eve_set_eag_window_keys;
define_key("eve_dont_really_exit",CTRL_Z_KEY,"Fake exit");
define_key("eve_quit",key_name("q",shift_key),"Quit");
! Above handles *new* buffers, but we should set current buffer for
! file read in during startup.
file_type := file_parse(get_info(current_buffer,"file_name"),"","",TYPE);
if (file_type = ".COM") or (file_type = ".TEX") or 
     (file_type = ".TPU") or (file_type = ".DCL")
     then eve_full_margins;
     else eve_text_margins;
endif;
! For testing of new Mail procedure.
define_key("eve_domail",F14,"Domail");