From 018176e75a7b4f3aeeb053cc31928cbaff8442f4 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Tue, 17 Nov 2020 13:26:53 +0100 Subject: 2020-11-17 12:42:00 --- tex/context/base/mkiv/typo-inj.mkiv | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) (limited to 'tex/context/base/mkiv/typo-inj.mkiv') diff --git a/tex/context/base/mkiv/typo-inj.mkiv b/tex/context/base/mkiv/typo-inj.mkiv index db5bb2d5b..633d430e4 100644 --- a/tex/context/base/mkiv/typo-inj.mkiv +++ b/tex/context/base/mkiv/typo-inj.mkiv @@ -44,31 +44,35 @@ %D \startsection[title=Delta] fourth \index{fourth} \stopsection %D \stoptext -\permanent \protected\def\resetinjector [#1]{\clf_resetinjector{#1}} -\permanent \protected\def\markinjector [#1]{\dontleavehmode\clf_markinjector{#1}} -\permanent\tolerant\protected\def\checkinjector [#1]#*[#2]{\clf_checkinjector{#1}{#2}} -\permanent \protected\def\checknextinjector [#1]{\clf_checkinjector{#1}{\v!next}} -\permanent \protected\def\checkpreviousinjector [#1]{\clf_checkinjector{#1}{\v!previous}} -%permanent \protected\def\checknextinjector [#1]{\clf_checknextinjector{#1}} -%permanent \protected\def\checkpreviousinjector [#1]{\clf_checkpreviousinjector{#1}} -\permanent\tolerant\protected\def\setinjector [#1]#*[#2]#*[#3]{\clf_setinjector{#1}{#2}{#3}} -\permanent\tolerant\protected\def\showinjector [#1]{\clf_showinjector{#1}} +\unexpanded\def\resetinjector [#1]{\clf_resetinjector{#1}} +\unexpanded\def\markinjector [#1]{\dontleavehmode\clf_markinjector{#1}} +\unexpanded\def\docheckinjector [#1][#2]{\clf_checkinjector{#1}{#2}} +\unexpanded\def\checknextinjector [#1]{\clf_checkinjector{#1}{\v!next}} +\unexpanded\def\checkpreviousinjector [#1]{\clf_checkinjector{#1}{\v!previous}} +%unexpanded\def\checknextinjector [#1]{\clf_checknextinjector{#1}} +%unexpanded\def\checkpreviousinjector [#1]{\clf_checkpreviousinjector{#1}} +\unexpanded\def\dosetinjector [#1][#2][#3]{\clf_setinjector{#1}{#2}{#3}} +\unexpanded\def\doshowinjector [#1]{\clf_showinjector{#1}} -\permanent\protected\def\domarkinjector#1#2% called at the lua end +\unexpanded\def\checkinjector{\dodoubleempty \docheckinjector} +\unexpanded\def\setinjector {\dotripleargument\dosetinjector} +\unexpanded\def\showinjector {\dosingleempty \doshowinjector} + +\unexpanded\def\domarkinjector#1#2% called at the lua end {\dontleavehmode\llap{\infofont\ifcase#1\else\red\fi<#2>\quad}} % low level definers .. we could have \injectors_mark and \injectors_check and then % use \v!list instead of \s!list -\permanent\protected\def\doinstallinjector#1% +\unexpanded\def\doinstallinjector#1% {\letvalue{typo_injectors_mark_#1}\donothing \letvalue{typo_injectors_check_#1}\donothing} -\permanent\protected\def\doactivateinjector#1% used at lua end +\unexpanded\def\doactivateinjector#1% used at lua end {\setuxvalue{typo_injectors_mark_#1}{\dontleavehmode\noexpand\clf_markinjector{#1}}% \setuxvalue{typo_injectors_check_#1}{\noexpand\clf_checkinjector{#1}}} -\permanent\protected\def\dotestinjector#1% only for testing outside unprotect +\unexpanded\def\dotestinjector#1% only for testing outside unprotect {\begincsname typo_injectors_check_#1\endcsname \begincsname typo_injectors_mark_#1\endcsname} -- cgit v1.2.3