procedure kaz$swap_characters
!
!	This procedure swaps the characters on either side of the pointer.
!

    first := erase_character(-1);
    move_horizontal(+1);
    copy_text (first);
endprocedure

!	The next line defines the key sequence PF1 + CTRL/H, which is the same 
!	as PF1 + <BACK SPACE>, to be the execution of the above procedure. 
!
define_key ('kaz$swap_characters',key_name(ctrl_h_key,shift_key),
    		"Swap characters");

!
!	To change the size of the first indentation with the <TAB> key, modify
!	the 4 in the first line below to your preferred value.  We suggest 8 
!	for FORTRAN programmers and 2 or 3 for PASCAL programmers.
!
edt$x_tab_size := 4;
edt$x_tab_goal := edt$x_tab_size;
edt$x_tab_set := 1;

!
!	To change the width of the text, modify the 65 in the first line below
!	to your preferred value.  We suggest 60 for SIP's, 72 for FORTRAN, and  
!	78 for PASCAL programmers. 
!
edt$x_wrap_position := 65;
define_key('edt$wrap_word',key_name(' '));

!
!	The following command should be activated by deleting the initial
!	exclamation point if you want to customize for FORTRAN or PASCAL. 
!	It changes the definition of word boundaries to include algebraic 
!	punctuation. 
!
!kaz$swap_delim;