% "DEF_UMLAUT.TEX"    definitions of "dirty" umlauts

\def\dirtyumlaut#1{\if#1A{\discretionary
{\kern 4321sp m\kern 196sp\kern-4517sp\kern-1em}{}{{\accent"7F A}}}\else
\if#1O{\discretionary
{\kern 4321sp m\kern 214sp\kern-4535sp\kern-1em}{}{{\accent"7F O}}}\else
\if#1U{\discretionary
{\kern 4321sp m\kern 220sp\kern-4541sp\kern-1em}{}{{\accent"7F U}}}\else
\if#1a{\discretionary
{\kern 4321sp m\kern 228sp\kern-4549sp\kern-1em}{}{{\accent"7F a}}}\else
\if#1o{\discretionary
{\kern 4321sp m\kern 246sp\kern-4567sp\kern-1em}{}{{\accent"7F o}}}\else
\if#1u{\discretionary
{\kern 4321sp m\kern 252sp\kern-4573sp\kern-1em}{}{{\accent"7F u}}}\else
\if#1s{%\discretionary  --- test
%{\kern 4321sp m\kern 255sp\kern-4573sp\kern-1em}{}
{\ss}}\else{{\accent"7F #1}}\fi\fi\fi\fi\fi\fi\fi}


\catcode`^^c4=11  % Ae
\catcode`^^d6=11  % Oe
\catcode`^^dc=11  % Ue
\catcode`^^e4=11  % ae
\catcode`^^f6=11  % oe
\catcode`^^fc=11  % ue
% \catcode`^^ff=11  % ss, sz

\lccode`^^c4=`^^e4  % Ae --> ae
\lccode`^^d6=`^^f6  % Oe --> oe
\lccode`^^dc=`^^fc  % Ue --> ue
\lccode`^^e4=`^^e4  % ae --> ae
\lccode`^^f6=`^^f6  % oe --> oe
\lccode`^^fc=`^^fc  % ue --> ue
% \lccode`^^ff=`^^ff  % ss, sz --> ss, sz

\uccode`^^c4=`^^c4  % Ae --> Ae
\uccode`^^d6=`^^d6  % Oe --> Oe
\uccode`^^dc=`^^dc  % Ue --> Ue
\uccode`^^e4=`^^c4  % ae --> Ae
\uccode`^^f6=`^^d6  % oe --> Oe
\uccode`^^fc=`^^dc  % ue --> Ue
% \uccode`^^ff=`^^ff  % ss, sz --> ss, sz   ? uccode`^^ff=`^^df


\catcode`^^Y=11  % ss,sz
\lccode`^^Y=`^^Y
\uccode`^^Y=`^^Y