paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 19:31:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix recognition of directives broken by last patch

Browse Source
This commit is contained in:
pierre 2001-09-25 22:45:09 +00:00
parent c98f73e0d5
commit e3ffc5cd4e
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/weditor.pas
View File

@ -2306,7 +2306,9 @@ var
Dec(ClassStart,length(MatchingSymbol)-1);
{ Remove (* from SymbolConcat to avoid problem with (*) PM }
{ fixes part of bug 1617 }
Delete(SymbolConcat,1,length(MatchingSymbol));
{ but removed proper directive prefix detection ... }
if MatchingSymbol[length(MatchingSymbol)]=Editor^.GetSpecSymbol(ssCommentSuffix,SymbolIndex)[1] then
Delete(SymbolConcat,1,length(MatchingSymbol));
end
else
if IsCommentSuffix and (InComment) then
@ -7079,7 +7081,10 @@ end;
END.
{
$Log$
Revision 1.10 2001-09-25 11:59:20 pierre
Revision 1.11 2001-09-25 22:45:09 pierre
* fix recognition of directives broken by last patch
Revision 1.10 2001/09/25 11:59:20 pierre
* fix comment highlight bugs from bug 1617
Revision 1.9 2001/09/17 22:54:09 pierre