diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-02-12 18:57:41 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-02-12 18:57:41 +0100 |
commit | 79bdc958cec8c084f8c8472e8f600c60969b03fa (patch) | |
tree | 97e489a6c23b01dae519aa36a535d62c301fabee /tex/context/base/mkxl/scrn-hlp.mklx | |
parent | 45e121c1d9414786e677d931101af1357294e9b7 (diff) | |
download | context-79bdc958cec8c084f8c8472e8f600c60969b03fa.tar.gz |
2021-02-12 18:48:00
Diffstat (limited to 'tex/context/base/mkxl/scrn-hlp.mklx')
-rw-r--r-- | tex/context/base/mkxl/scrn-hlp.mklx | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/tex/context/base/mkxl/scrn-hlp.mklx b/tex/context/base/mkxl/scrn-hlp.mklx index ad50486a3..da2afd0d0 100644 --- a/tex/context/base/mkxl/scrn-hlp.mklx +++ b/tex/context/base/mkxl/scrn-hlp.mklx @@ -69,20 +69,21 @@ \c!backgroundcolor=gray] \appendtoks - \frozen\instance\setuevalue \currenthelp {\scrn_help_argument{\currenthelp}}% - \frozen\instance\setuevalue{\e!start\currenthelp}{\scrn_help_start {\currenthelp}}% - \frozen\instance\setuevalue{\e!stop \currenthelp}{\scrn_help_stop }% + \frozen\instance\protected\edefcsname \currenthelp\endcsname{\scrn_help_argument{\currenthelp}}% + \frozen\instance\protected\edefcsname\e!start\currenthelp\endcsname{\scrn_help_start {\currenthelp}}% + \frozen\instance\protected\edefcsname\e!stop \currenthelp\endcsname{\scrn_help_stop }% \to \everydefinehelp +\mutable\let\currenthelpreference\empty +\mutable\let\currenthelpname \empty + \protected\def\scrn_help_argument#category% {\def\currenthelp{#category}% \global\advance\c_scrn_help_n\plusone \edef\currenthelpname{help:\number\c_scrn_help_n}% - \doifelselocation - {\dosingleempty\scrn_help_argument_indeed} - {\dosingleempty\scrn_help_argument_ignore}} + \doifelselocation\scrn_help_argument_indeed\scrn_help_argument_ignore} -\def\scrn_help_argument_indeed[#reference]#text#target% +\tolerant\def\scrn_help_argument_indeed[#reference]#:#text#target% {\edef\currenthelpreference{#reference}% \dontleavehmode \hbox \bgroup \dontcomplain @@ -93,17 +94,14 @@ {\helpsignal{\number\c_scrn_help_n}#target}% [\helpaction{\number\c_scrn_help_n}]} -\def\scrn_help_argument_ignore[#reference]#text#target% +\tolerant\def\scrn_help_argument_ignore[#reference]#:#text#target% {#target} -\protected\def\scrn_help_start#category% - {\def\currenthelp{#category}% - \global\advance\c_scrn_help_n\plusone +\tolerant\protected\def\scrn_help_start#category#spacer[#reference]% + {\global\advance\c_scrn_help_n\plusone + \edef\currenthelp{#category}% + \edef\currenthelpreference{#reference}% \edef\currenthelpname{help:\number\c_scrn_help_n}% - \dosingleempty\scrn_help_start_indeed} - -\def\scrn_help_start_indeed[#reference]% - {\edef\currenthelpreference{#reference}% \grabbufferdatadirect\currenthelp{\e!start\currenthelp}{\e!stop\currenthelp}} \protected\def\scrn_help_stop |