Merge pull request #858 from Alex-Jordan/negative-space

replace MathObjects negative space with \mathopen{}
openwebwork · Jun 22, 2023 · c3ad44f · c3ad44f
2 parents 15ba650 + 5614662
commit c3ad44f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Parser/BOP/multiply.pm b/lib/Parser/BOP/multiply.pm
@@ -145,7 +145,7 @@ sub TeX {
 			&& $self->{rop}{isConstant}
 			&& $self->{rop}->type eq 'Number'
 			&& $self->{rop}->class ne 'Constant');
-	$right = '\!' . $right if $mult eq '' && substr($right, 0, 5) eq '\left';
+	$right = '\mathopen{}' . $right if $mult eq '' && substr($right, 0, 5) eq '\left';
 	$TeX   = $left . $mult . $right;
 
 	$TeX = '\left(' . $TeX . '\right)' if $addparens;

diff --git a/lib/Parser/Function.pm b/lib/Parser/Function.pm
@@ -328,7 +328,7 @@ sub TeX {
 	$name = $fn->{TeX} if defined($fn->{TeX});
 	foreach my $x (@{ $self->{params} }) { push(@pstr, $x->TeX) }
 	if ($fn->{braceTeX}) { $TeX = $name . '{' . join(',', @pstr) . '}' }
-	else                 { $TeX = $name . "$power" . '\!\left(' . join(',', @pstr) . '\right)' }
+	else                 { $TeX = $name . "$power" . '\mathopen{}\left(' . join(',', @pstr) . '\right)' }
 	$TeX = '\left(' . $TeX . '\right)'
 		if $showparens eq 'all'
 		or $showparens eq 'extra'