paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, Translations unit: When setting flags for an item in .po file, omit double quote (") characters in order to avoid regeneration instability. These characters are not meant to be present in flags anyway according to examples in gettext documentation.

Browse Source 
git-svn-id: trunk@61279 -
This commit is contained in:
maxim 2019-05-22 22:43:57 +00:00
parent 4f7d5ba062
commit 8078feaa66
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/translations.pas
View File

@ -1594,6 +1594,7 @@ procedure TPOFile.FillItem(var CurrentItem: TPOFileItem; Identifier, Original,
var
FoundItem: TPOFileItem;
TmpFlags: string;
begin
FoundItem := TPOFileItem(FOriginalToItem.Data[Original]);
@ -1604,7 +1605,8 @@ begin
CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation);
CurrentItem.Comments := Comments;
CurrentItem.Context := Context;
CurrentItem.ModifyFlag(lowercase(Flags), true);
TmpFlags := StringReplace(Flags, '"', '', [rfReplaceAll]);
CurrentItem.ModifyFlag(lowercase(TmpFlags), true);
CurrentItem.PreviousID := PreviousID;
CurrentItem.LineNr := LineNr;
FItems.Add(CurrentItem);