Nefungujici makro na redefinici kapitalek...

[Zdenek Wagner]

On Mon, 22 Mar 2004, Zdenek Wagner wrote:

> Neni to uplne jednoduche. Nevim to z hlavy a priznam se, ze bych to neumel
> vymyslet, ale pouziva se to v jadre LaTeXu. Po nejake dobe hledani bych to
> snad zase objevil.
>
Nenasel jsem to, ale vzpomnel jsem si:

\newcount\cnt
\cnt=`\Q
\catcode`\@=13
\show Q

% Toto bude v cyklu
\lccode`\@=\cnt
\catcode\cnt=13
\lowercase{\edef @{\noexpand\pred \char\cnt \noexpand\po}}
% Konec textu v cyklu

\catcode`\@=12
\show Q
\def\pred{PRED.}
\def\po{.PO}
Q
\bye


Zdenek Wagner
e-mail: wagner at cesnet.cz

see also http://hroch486.icpf.cas.cz/wagner/
         http://icebearsoft.euweb.cz