Subject: File: german_sty.cha

From: "Steiner Helmut, Tel. 58801/4073" <[email-masked]>
Date: Thu, 12 Aug 1993 11:29:23 EDT

@x
\gdef\umlauthigh{\def\"##1{{\accent127 ##1}}}
\gdef\umlautlow{\def\"{\protect\newumlaut}}
\gdef\newumlaut#1{\leavevmode\allowhyphens
     \vbox{\baselineskip\z@skip \lineskip.25ex
@y
% \gdef\umlauthigh{\def\"##1{{\accent127 ##1}}}
\gdef\umlauthigh{\def\"##1{{\dirtyumlaut##1}}}

%\gdef\umlautlow{\def\"{\protect\newumlaut}}

\gdef\umlautlow{\def\"{\protect\dirtyumlautlow}}

\gdef\dirtyumlautlow#1{\if#1A{\discretionary
{\kern 4321sp m\kern 
196sp\kern-4517sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1O{\discretionary
{\kern 4321sp m\kern 
214sp\kern-4535sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1U{\discretionary
{\kern 4321sp m\kern 
220sp\kern-4541sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1a{\discretionary
{\kern 4321sp m\kern 
228sp\kern-4549sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1o{\discretionary
{\kern 4321sp m\kern 
246sp\kern-4567sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1u{\discretionary
{\kern 4321sp m\kern 
252sp\kern-4573sp\kern-1em}{}{\protect\newumlaut#1}}\else
\if#1s{\discretionary
{\kern 4321sp m\kern 255sp\kern-4573sp\kern-1em}{}
{\ss}}\else{\protect\newumlaut#1}\fi\fi\fi\fi\fi\fi\fi}

\gdef\newumlaut#1{\leavevmode
     \vbox{\baselineskip\z@skip \lineskip.25ex
@z

@x
     {\hbox{\char127}\vss}\hidewidth\crcr#1\crcr}}\allowhyphens}
\gdef\highumlaut#1{\leavevmode\allowhyphens
     \accent127 #1\allowhyphens}

\gdef\set@low@box#1{\setbox\tw@\hbox{,}\setbox\z@\hbox{#1}\dimen\
z@\ht\z@
@y
     {\hbox{\char127}\vss}\hidewidth\crcr#1\crcr}}}

\gdef\highumlaut#1{\leavevmode\dirtyumlaut#1}

\gdef\set@low@box#1{\setbox\tw@\hbox{,}\setbox\z@\hbox{#1}\dimen\
z@\ht\z@
@z