paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

synunihighlighter: fixed typos introduced in the conversion to mode objfpc (bug )

Browse Source 
git-svn-id: trunk@13256 -
This commit is contained in:
vincents 2007-12-10 10:38:41 +00:00
parent 26fb043832
commit 23ecc4209e
3 changed files with 14 additions and 2 deletions
components/synunihighlighter
languages
synunidesigner.posynunireg.po
synunihighlighter.pas

6
components/synunihighlighter/languages/synunidesigner.po
View File

@ -1,3 +1,9 @@
msgid ""
msgstr ""
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: synunidesigner:sunifiledescription
msgid "UniHighlighter Syntax"
msgstr ""

6
components/synunihighlighter/languages/synunireg.po
View File

@ -1,3 +1,9 @@
msgid ""
msgstr ""
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: synunireg:sedituni
msgid "Edit..."
msgstr ""

4
components/synunihighlighter/synunihighlighter.pas
View File

@ -1568,7 +1568,7 @@ begin
if parser.fLine[parser.Run] in parser.fCurrentRule.fTermSymbols then
begin
Result:=True;
tkSynSymbol:=self.tkSynSymbol;
tkSynSymbol1:=self.tkSynSymbol;
end
else
Result:=false;
@ -1591,7 +1591,7 @@ function TDefaultTermSymbols.GetToken(parser: TSynUniSyn;var tkSynSymbol1:TSynSy
begin
if parser.fLine[parser.Run]<>#0 then
Inc(parser.Run);
tkSynSymbol:=self.tkSynSymbol;
tkSynSymbol1:=self.tkSynSymbol;
Result:=True;
end;