stable 2004.09.06

1 files changed, 9 insertions, 9 deletions

diff --git a/tex/context/base/core-fnt.tex b/tex/context/base/core-fnt.tex
index 8cf7921e3..5315f4d88 100644
--- a/tex/context/base/core-fnt.tex
+++ b/tex/context/base/core-fnt.tex
@@ -1,5 +1,5 @@
 %D \module
-%D   [       filefile=core-fnt,
+%D   [       file=core-fnt,
 %D        version=1995.10.10,
 %D          title=\CONTEXT\ Core Macros,
 %D       subtitle=Font Support,
@@ -139,7 +139,7 @@
 
 %D Sure:
 
-\let\kap\smallcapped
+\def\kap{\smallcapped} % for old times sake
 
 %D Some precautions for a \PLAIN\ \TEX\ definition.
 
@@ -160,18 +160,20 @@
 %D
 %D \showsetup{setupcapitals}
 
+\let\normalsmallcapped\smallcapped
+
 \def\setupcapitals
   {\dosingleempty\dosetupcapitals}
 
 \def\dosetupcapitals[#1]%
   {\getparameters[\??kk][#1]%
    \doifelse\@@kktitle\v!yes
-     {\definealternativestyle[\v!capital][\smallcapped][\smallcapped]%
+     {\definealternativestyle[\v!capital][\normalsmallcapped][\normalsmallcapped]%
       \definealternativestyle[\v!smallcaps][\sc][\sc]%
-      \let\kap\normalkap}
-     {\definealternativestyle[\v!capital][\smallcapped][\uppercased]%
+      \let\smallcapped\normalsmallcapped}
+     {\definealternativestyle[\v!capital][\normalsmallcapped][\uppercased]%
       \definealternativestyle[\v!smallcaps][\sc][\uppercased]%
-      \def\kap{\doconvertfont\v!capital}}%
+      \def\smallcapped{\doconvertfont\v!capital}}%
    \doifelse\@@kksc\v!yes
      \userealcaps
      \usepseudocaps}
@@ -248,9 +250,7 @@
 \unexpanded\def\WORD#1%
   {\bgroup
    \the\everyuppercase
-   %\def\kap##1{##1}%
-   %\def\WORD##1{##1}%
-   \let\kap\firstofoneargument
+   \let\smallcapped\firstofoneargument
    \let\WORD\firstofoneargument
    \uppercase{#1}% No expansion here, otherwise \getvalue problems!
    %\edef\next{#1}% keep this to prevent roll back