mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 05:39:14 +02:00
IDE: fixed parsing of todo items without semicolon, support was removed in r13010 #42edb792e6 (issue #13684)
git-svn-id: trunk@19939 -
This commit is contained in:
parent
3005b7d87f
commit
1994036cf2
@ -40,6 +40,14 @@
|
||||
|
||||
the -o and -c tags are optional.
|
||||
|
||||
If the -o and -c tags are not used, then the variant without semicolon is
|
||||
allowed too:
|
||||
{TODO Todo_text}
|
||||
{DONE Todo_text}
|
||||
{#todo Todo_text}
|
||||
{#done Todo_text}
|
||||
|
||||
|
||||
Sub comments in nested comments are ignored.
|
||||
*)
|
||||
{#todo options }
|
||||
@ -413,11 +421,13 @@ begin
|
||||
aTLFile.Add(Result);
|
||||
end;
|
||||
|
||||
if Pos(cSemiColon, ParsingString)>0 then
|
||||
begin
|
||||
// Parse priority, owner and category
|
||||
n := 1;
|
||||
TempStr := '';
|
||||
Strlen := Length(ParsingString);
|
||||
|
||||
// Parse priority, owner and category
|
||||
while (n <= StrLen) and (ParsingString[n]<>cSemiColon) do
|
||||
begin
|
||||
|
||||
@ -441,6 +451,7 @@ begin
|
||||
SetItemFields(Result, TempStr);
|
||||
|
||||
Delete(ParsingString, 1, n);
|
||||
end;
|
||||
|
||||
// Set item text
|
||||
Result.Text := ParsingString;
|
||||
|
Loading…
Reference in New Issue
Block a user