!
! EDT-style Delete to end of word
!
procedure eve_delete_end_word		! keypad minus (delete word)

LOCAL	 temp_length ;
temp_length := eve$end_word;
if temp_length = 0		! then we are on eol
then
	     eve$x_restore_text:=ascii(10);  ! line feed
	     if mark(none) <> end_of (current_buffer) then
	         move_horizontal(1);
		 if mark(none) <> end_of (current_buffer) then
	             append_line;	  ! join both lines
		 else
		    move_horizontal (-1);
		 endif;
	     endif;
else
	     eve$x_restore_text := erase_character(- temp_length)	! delete the word
endif;
endprocedure
!
! Find the end of the word
!
procedure eve$end_word		!support routine for delete word

LOCAL	 temp_range ,
		temp_length ;
on_error
! catch search failure (suppress message)
return temp_length ! return 0
endon_error

	temp_range:=search(eve$pattern_end_of_word,forward);
	temp_length:=length(temp_range);
	move_horizontal(temp_length);

return temp_length;
endprocedure