paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-14 10:49:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 #: synunidesigner:sunifiledescription
msgid "UniHighlighter Syntax" msgid "UniHighlighter Syntax"
msgstr "" 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 #: synunireg:sedituni
msgid "Edit..." msgid "Edit..."
msgstr "" msgstr ""

4
components/synunihighlighter/synunihighlighter.pas
View File

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