unicodedomino_kernel_fixup_f4.def

% -*- mode: tex -*-
%-
% See unicodedomino.sty for copyright and licence terms. Furthermore
% this file is dual-licenced under the LPPL version 1.3c or later.
%-
% Disallow codepoints outside of the UCS range [0;10FFFF]; allow "F4
% as lead octet. Fixed upstream v1.2e 2018/09/28

% bugfix: disallow too large definitions
\let\unicodedomino@parse@XML@charref\parse@XML@charref%
\gdef\parse@XML@charref{%
 \ifnum\count@>"10FFFF\relax%
  \PackageError{inputenc}{%
   Cannot define UCS codepoint\space%
   \UTFviii@hexnumber\count@\space%
   (too large)%
  }%
 \fi%
 \unicodedomino@parse@XML@charref%
}%

% bugfix: add "F4 to the list of permitted lead octets
% (needs the above fix)
\begingroup%
\catcode`\~13
\uccode`\~"F4
\def\UTFviii@tmp{\xdef~{\noexpand\UTFviii@four@octets\string~}}%
\uppercase\expandafter{\UTFviii@tmp}%
\endgroup%