% File tibadjusttsheg.otp
% Creation of the tsheg-mark after tibetan word
% Copyright (c) 1997 Norbert Preining
% this file is part of the otibet package.
% 
% Killing wrong tshegs inserted at spaces by intib!

input:	2;
output:	2;

aliases:
c = ( @"0f00 | ( @"0f40 - @"0f47 ) | ( @"0f49 - @"0f69 ) | ( @"0f71 - @"0f8b )) ;
tsheg = ( @"0f0b ) ;

expressions:
^({c}) {tsheg}	=>	\1 ;
