paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 20:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix comment highlight bugs from bug #1617

Browse Source
This commit is contained in:
pierre 2001-09-25 11:59:20 +00:00
parent 6ac591f9f8
commit ae4a734b2f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/weditor.pas
View File

@ -2152,13 +2152,21 @@ var
end; end;
function IsAsmPrefix(const WordS: string): boolean; function IsAsmPrefix(const WordS: string): boolean;
var
StoredMatchedSymbol : boolean;
begin begin
StoredMatchedSymbol:=MatchedSymbol;
IsAsmPrefix:=MatchesAnySpecSymbol(WordS,ssAsmPrefix,pmNone,true); IsAsmPrefix:=MatchesAnySpecSymbol(WordS,ssAsmPrefix,pmNone,true);
MatchedSymbol:=StoredMatchedSymbol;
end; end;
function IsAsmSuffix(const WordS: string): boolean; function IsAsmSuffix(const WordS: string): boolean;
var
StoredMatchedSymbol : boolean;
begin begin
StoredMatchedSymbol:=MatchedSymbol;
IsAsmSuffix:=MatchesAnySpecSymbol(WordS,ssAsmSuffix,pmNone,true); IsAsmSuffix:=MatchesAnySpecSymbol(WordS,ssAsmSuffix,pmNone,true);
MatchedSymbol:=StoredMatchedSymbol;
end; end;
function GetCharClass(C: char): TCharClass; function GetCharClass(C: char): TCharClass;
@ -2296,6 +2304,9 @@ var
InSingleLineComment:=IsSingleLineCommentPrefix; InSingleLineComment:=IsSingleLineCommentPrefix;
{InString:=false; } {InString:=false; }
Dec(ClassStart,length(MatchingSymbol)-1); Dec(ClassStart,length(MatchingSymbol)-1);
{ Remove (* from SymbolConcat to avoid problem with (*) PM }
{ fixes part of bug 1617 }
Delete(SymbolConcat,1,length(MatchingSymbol));
end end
else else
if IsCommentSuffix and (InComment) then if IsCommentSuffix and (InComment) then
@ -7068,7 +7079,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.9 2001-09-17 22:54:09 pierre 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
+ Line completion for Find/Replace dialogs + Line completion for Find/Replace dialogs
Revision 1.8 2001/09/17 21:30:26 pierre Revision 1.8 2001/09/17 21:30:26 pierre