diff options
| author | Hans Hagen <pragma@wxs.nl> | 2003-04-22 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2003-04-22 00:00:00 +0200 |
| commit | 30ab0025913bb6e39e7cfd2c37b402083b1f7337 (patch) | |
| tree | cb73415b1f5e397d6c2d81300d962405b5b27639 /context/perltk/texexec.pl | |
| parent | 44a457e94e531de21ed9138035570e6fc23d9019 (diff) | |
| download | context-30ab0025913bb6e39e7cfd2c37b402083b1f7337.tar.gz | |
stable 2003.04.22
Diffstat (limited to 'context/perltk/texexec.pl')
| -rw-r--r-- | context/perltk/texexec.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/context/perltk/texexec.pl b/context/perltk/texexec.pl index 839394e15..e229601e5 100644 --- a/context/perltk/texexec.pl +++ b/context/perltk/texexec.pl @@ -1317,12 +1317,13 @@ sub ScanContent { $ConTeXtInterface = "en" ; last } elsif (/\\(usa|imposta|ambiente)/) { $ConTeXtInterface = "it" ; last } - elsif (/(hoogte|breedte|letter)=/) - { $ConTeXtInterface = "nl" ; last } elsif (/(height|width|style)=/) { $ConTeXtInterface = "en" ; last } elsif (/(hoehe|breite|schrift)=/) { $ConTeXtInterface = "de" ; last } + # brr, can be \c! + elsif (/(hoogte|breedte|letter)=/) + { $ConTeXtInterface = "nl" ; last } elsif (/(altezza|ampiezza|stile)=/) { $ConTeXtInterface = "it" ; last } elsif (/externfiguur/) @@ -1426,6 +1427,7 @@ sub RunTeXutil sub PurgeFiles { my $JobName = shift ; + print "\n purging files : $JobName\n" ; RunPerlScript($TeXUtil, "--purge $JobName" ) } sub RunTeXMP |