anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 18:08:10 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* pocheck.pl: re-introduce check for '|' shortcuts

Browse Source 
which are not only used by the former xforms frontend
        but also in the menus


git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@14484 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Michael Schmitt 2006-07-18 21:06:47 +00:00
parent d889b1cebf
commit 66662d3f26
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
po/pocheck.pl
View File

@ -81,9 +81,18 @@ foreach $pofilename ( @ARGV )
$warn++; $warn++;
} }
# Check for "|..." shortcuts
if ( ( $msgid =~ m/\|[^ ]/ ) != ( $msgstr =~ m/\|[^ ]/ ) ) {
print( "Missing or unexpected menu shortcut:\n" );
print( " '$msgid' => '$msgstr'\n" );
$warn++;
}
$msgid_clean = lc($msgid); $msgid_clean = lc($msgid);
$msgstr_clean = lc($msgstr); $msgstr_clean = lc($msgstr);
$msgid_clean =~ s/(.*)\|.*?$/$1/; # strip menu shortcuts
$msgstr_clean =~ s/(.*)\|.*?$/$1/;
$msgid_clean =~ s/&([^ ])/$1/; # strip Qt shortcuts $msgid_clean =~ s/&([^ ])/$1/; # strip Qt shortcuts
$msgstr_clean =~ s/&([^ ])/$1/; $msgstr_clean =~ s/&([^ ])/$1/;