stable 2000.05.11

1 files changed, 21 insertions, 2 deletions

diff --git a/tex/context/base/mult-ini.tex b/tex/context/base/mult-ini.tex
index ffdd61f85..16e67b67f 100644
--- a/tex/context/base/mult-ini.tex
+++ b/tex/context/base/mult-ini.tex
@@ -436,7 +436,7 @@
    \fi}
 
 %D \macros
-%D   {dosetvalue,dosetevalue,docopyvalue,doresetvalue} % dogetvalue
+%D   {dosetvalue,dosetevalue,dosetgvalue,docopyvalue,doresetvalue} % dogetvalue
 %D
 %D We already defined these auxiliary macros in the system
 %D modules. Starting with this module however, we have to take
@@ -547,6 +547,16 @@
      \@EA\edef\csname#1\csname\k!prefix!#2\endcsname\endcsname{#3}%
    \fi}
 
+\def\dosetgvalue#1#2#3%  
+  {\let\c!internal!\c!internal!n
+   \@EA\ifx\csname\k!prefix!#2\endcsname\relax
+     \let\c!internal!\c!internal!y
+     \@EA\gdef\csname#1#2\endcsname{#3}%
+   \else
+     \let\c!internal!\c!internal!y
+     \@EA\gdef\csname#1\csname\k!prefix!#2\endcsname\endcsname{#3}%
+   \fi}
+
 \def\docopyvalue#1#2#3% 
   {\let\c!internal!\c!internal!n
    \@EA\ifx\csname\k!prefix!#3\endcsname\relax
@@ -585,6 +595,16 @@
      \@EA\edef\csname#1#2\endcsname{#3}%
    \fi}
 
+\def\dosetgvalue#1#2#3%  
+  {\let\c!internal!\c!internal!n
+   \ifcsname\k!prefix!#2\endcsname
+     \let\c!internal!\c!internal!y
+     \@EA\gdef\csname#1\csname\k!prefix!#2\endcsname\endcsname{#3}%
+   \else
+     \let\c!internal!\c!internal!y
+     \@EA\gdef\csname#1#2\endcsname{#3}%
+   \fi}
+
 \def\docopyvalue#1#2#3%  
   {\let\c!internal!\c!internal!n
    \ifcsname\k!prefix!#3\endcsname
@@ -1125,7 +1145,6 @@
 
 %D \macros
 %D   {startelements}
-%D   {}
 %D
 %D Due to the object oriented nature of \CONTEXT, we also need
 %D to define the elements that are used to build commands: