procedure eve_undelete_char

copy_text(eve$saved_char);
endprocedure;