summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml')
-rw-r--r--Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml11
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml b/Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml
index 39d1584c14b..d8689c4a7b9 100644
--- a/Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml
+++ b/Master/texmf-dist/tex/latex/stex/modules/modules.sty.ltxml
@@ -123,7 +123,11 @@ DefMacro('\DefMathOp OptionalKeyVals:symdef {}',
my $name = KeyVal($keyval,'name') if $keyval;
#Rewrite this token
my $scopes = $STATE->getActiveScopes;
- DefMathRewrite(active=>$scopes,xpath=>'descendant-or-self::ltx:XMath',match=>ToString($pres),replace=>"\\".ToString($name));
+ DefMathRewrite(xpath=>'descendant-or-self::ltx:XMath',match=>ToString($pres),
+ replace=>sub{
+ map {$STATE->activateScope($_);} @$scopes;
+ $_[0]->absorb(Digest("\\".ToString($name)));
+ });
#Invoke symdef
(Invocation(T_CS('\symdef'),$keyval,$name,undef,undef,$pres)->unlist);
});
@@ -315,7 +319,7 @@ DefMacro('\defpath{}{}', sub {
my $paths = LookupValue('defpath')||{};
$$paths{"$arg1"}=$arg2;
AssignValue('defpath'=>$paths,'global');
- DefMacro('\\'.$arg1.' {}',$arg2."/#1");
+ DefMacro('\\'.$arg1.' Semiverbatim',$arg2."/#1");
});#$
DefPrimitive('\requiremodules{}', sub {
my($stomach,$module)=@_;
@@ -350,7 +354,8 @@ DefPrimitive('\sinput Semiverbatim', sub {
$GULLET->unread(Invocation(T_CS('\end@requiredmodule'),T_OTHER($module))->unlist);
$GULLET->input($module,['tex']);
return;});#$
-DefConstructor('\sinputref{}',"<omdoc:ref xref='#1.omdoc' type='include'/>");
+DefConstructor('\sinputref{}',"<omdoc:ref xref='#1.omdoc' type='cite' class='expandable'/>");
+DefConstructor('\inputref{}',"<omdoc:ref xref='#1.omdoc' type='cite' class='expandable'/>");
DefMacro('\@symdef@pres OptionalKeyVals:symdef {}[][]{}', sub {
my($self,$keys, $cs,$nargs,$opt,$presentation)=@_;