800     cafu(Bin,N,0,0,none,case Encoding of 
805 cafu(<<>>,0,Count,ByteCount,_SavePos,_) ->  function
807 cafu(<<>>,_N,Count,_ByteCount,SavePos,_) ->  function
809 cafu(<<_/utf8,Rest/binary>>, 0, Count, ByteCount, _SavePos, utf8) ->  function
810     cafu(Rest,-1,Count+1,0,ByteCount,utf8);
811 cafu(<<_/utf8,Rest/binary>>, N, Count, _ByteCount, SavePos, utf8) when N < 0 ->  function
812     cafu(Rest,-1,Count+1,0,SavePos,utf8);
813 cafu(<<_/utf8,Rest/binary>> = Whole, N, Count, ByteCount, SavePos, utf8) ->  function
815     cafu(Rest,N-1,Count+1,ByteCount+Delta,SavePos,utf8);
816 cafu(<<_/utf16-big,Rest/binary>>, 0, Count, ByteCount, _SavePos, {utf16,big}) ->  function
817     cafu(Rest,-1,Count+1,0,ByteCount,{utf16,big});
818 cafu(<<_/utf16-big,Rest/binary>>, N, Count, _ByteCount, SavePos, {utf16,big}) when N < 0 ->  function
819     cafu(Rest,-1,Count+1,0,SavePos,{utf16,big});
820 cafu(<<_/utf16-big,Rest/binary>> = Whole, N, Count, ByteCount, SavePos, {utf16,big}) ->  function
822     cafu(Rest,N-1,Count+1,ByteCount+Delta,SavePos,{utf16,big});
823 cafu(<<_/utf16-little,Rest/binary>>, 0, Count, ByteCount, _SavePos, {utf16,little}) ->  function
824     cafu(Rest,-1,Count+1,0,ByteCount,{utf16,little});
825 cafu(<<_/utf16-little,Rest/binary>>, N, Count, _ByteCount, SavePos, {utf16,little}) when N < 0 ->  function
826     cafu(Rest,-1,Count+1,0,SavePos,{utf16,little});
827 cafu(<<_/utf16-little,Rest/binary>> = Whole, N, Count, ByteCount, SavePos, {utf16,little}) ->  function
829     cafu(Rest,N-1,Count+1,ByteCount+Delta,SavePos,{utf16,little});
830 cafu(<<_/utf32-big,Rest/binary>>, 0, Count, ByteCount, _SavePos, {utf32,big}) ->  function
831     cafu(Rest,-1,Count+1,0,ByteCount,{utf32,big});
832 cafu(<<_/utf32-big,Rest/binary>>, N, Count, _ByteCount, SavePos, {utf32,big}) when N < 0 ->  function
833     cafu(Rest,-1,Count+1,0,SavePos,{utf32,big});
834 cafu(<<_/utf32-big,Rest/binary>> = Whole, N, Count, ByteCount, SavePos, {utf32,big}) ->  function
836     cafu(Rest,N-1,Count+1,ByteCount+Delta,SavePos,{utf32,big});
837 cafu(<<_/utf32-little,Rest/binary>>, 0, Count, ByteCount, _SavePos, {utf32,little}) ->  function
838     cafu(Rest,-1,Count+1,0,ByteCount,{utf32,little});
839 cafu(<<_/utf32-little,Rest/binary>>, N, Count, _ByteCount, SavePos, {utf32,little}) when N < 0 ->  function
840     cafu(Rest,-1,Count+1,0,SavePos,{utf32,little});
841 cafu(<<_/utf32-little,Rest/binary>> = Whole, N, Count, ByteCount, SavePos, {utf32,little}) ->  function
843     cafu(Rest,N-1,Count+1,ByteCount+Delta,SavePos,{utf32,little});
844 cafu(_Other,0,Count,ByteCount,_,_) -> % Non Unicode character,   function
847 cafu(Other,_N,Count,0,SavePos,Enc) -> % Not enough, but valid chomped unicode  function
855 cafu(Other,_N,Count,ByteCount,none,Enc) -> % Return what we'we got this far  function
864 cafu(Other,_N,Count,_ByteCount,SavePos,Enc) -> % As above but we have   function