diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-07-20 16:12:53 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-07-20 16:12:53 +0200 |
commit | a1db754014c68332a7eff39f5ff3fc2c08341f52 (patch) | |
tree | f6eeab74464ac10abc87705ea4444061876ba9d5 /tex/context/base/mkiv/syst-aux.mkxl | |
parent | 81095dd1bf20eb5f7e126adbdc8047f940504180 (diff) | |
download | context-a1db754014c68332a7eff39f5ff3fc2c08341f52.tar.gz |
2020-07-20 15:36:00
Diffstat (limited to 'tex/context/base/mkiv/syst-aux.mkxl')
-rw-r--r-- | tex/context/base/mkiv/syst-aux.mkxl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/syst-aux.mkxl b/tex/context/base/mkiv/syst-aux.mkxl index 42424dc75..f4135d123 100644 --- a/tex/context/base/mkiv/syst-aux.mkxl +++ b/tex/context/base/mkiv/syst-aux.mkxl @@ -1410,6 +1410,20 @@ \def\doignorevalue#1#2#3{\expandafter\let \csname#1#2\endcsname\empty} \def\docopyvalue #1#2#3{\expandafter\def \csname#1#3\endcsname{\csname#2#3\endcsname}} +%D Experiment +%D +%D \starttyping +%D \protected\def\fooA{A} \aliasmacro\FooA\fooA +%D \def\fooB{B} \aliasmacro\FooB\fooB +%D +%D \meaning\fooA\crlf \meaning\FooA\crlf +%D \meaning\fooB\crlf \meaning\FooB\crlf +%D \stoptyping + +\protected\def\aliasmacro#1#2% + {\ifprotected#2\protected\protected\fi + \def#1{#2}} + %D \macros %D {doassign,undoassign,doassignempty} %D |