set(LYX_SOURCE "${TempDir}/${file}.lyx")
message(STATUS "Using source \"${LYX_ROOT}/${file}.lyx\"")
message(STATUS "Using dest \"${LYX_SOURCE}\"")
- execute_process(COMMAND ${PERL_EXECUTABLE} "${Perl_Script}" "${LYX_ROOT}/${file}.lyx" "${LYX_SOURCE}" ${format} "default" "default" ${LanguageFile}
+ execute_process(COMMAND ${PERL_EXECUTABLE} "${Perl_Script}" "${LYX_ROOT}/${file}.lyx" "${LYX_SOURCE}" ${format} "dontChange" "default" ${LanguageFile}
RESULT_VARIABLE _err)
string(COMPARE EQUAL ${_err} 0 _erg)
if(NOT _erg)
if ($_[1] eq "systemF") {
$useNonTexFont = "true";
}
+ elsif ($_[1] eq "dontChange") {
+ $useNonTexFont = "dontChange";
+ }
else {
$useNonTexFont = "false";
$inputEncoding = $_[2];
if (! defined($elem{"fileidx"})) {
$elem{"fileidx"} = 1;
}
+ if (exists($elem{"search"})) {
+ my $ref = ref($elem{"search"});
+ diestack("Wrong or invalid regex (ref == $ref) specified") if ($ref ne "Regexp");
+ }
+ else {
+ diestack("No search defined");
+ }
diestack("No result defined") if (! defined($elem{"result"}));
return(\%elem);
}
push(@rElems, $elem, $elem1, $elem2);
}
}
- my $elemntf = newMatch("search" => '^\\\\use_non_tex_fonts\s+(false|true)',
- "filetype" => "replace_only",
- "result" => ["\\use_non_tex_fonts $useNonTexFont"]);
- push(@rElems, $elemntf);
+ if ($useNonTexFont ne "dontChange") {
+ my $elemntf = newMatch("search" => qr/^\\use_non_tex_fonts\s+(false|true)/,
+ "filetype" => "replace_only",
+ "result" => ["\\use_non_tex_fonts $useNonTexFont"]);
+ push(@rElems, $elemntf);
+ }
if (defined($inputEncoding)) {
my $inputenc = newMatch("search" => '^\\\\inputencoding\s+(' . $inputEncoding->{search} . ')',
"filetype" => "replace_only",