paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added some missing word separator chars

Browse Source
This commit is contained in:
pierre 2002-12-16 15:13:58 +00:00
parent 1101946ac0
commit 3fd91127fb
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/weditor.pas
View File

@ -902,7 +902,13 @@ end;
function IsWordSeparator(C: char): boolean; function IsWordSeparator(C: char): boolean;
begin begin
IsWordSeparator:=C in[' ',#0,#255,':','=','''','"','.',',','/',';','$','#','(',')','<','>','^','*','+','-','?','&','[',']']; IsWordSeparator:=C in
[' ',#0,#255,':','=','''','"',
'.',',','/',';','$','#',
'(',')','<','>','^','*',
'+','-','?','&','[',']',
'{','}','@','~','%','\',
'!'];
end; end;
{function IsSpace(C: char): boolean; {function IsSpace(C: char): boolean;
@ -4874,6 +4880,7 @@ begin
begin begin
if CurPos.Y>0 then if CurPos.Y>0 then
begin begin
CI:=Length(GetDisplayText(CurPos.Y-1));
S:=GetLineText(CurPos.Y-1); S:=GetLineText(CurPos.Y-1);
SetLineText(CurPos.Y-1,S+GetLineText(CurPos.Y)); SetLineText(CurPos.Y-1,S+GetLineText(CurPos.Y));
SC1.X:=Length(S);SC1.Y:=CurPOS.Y-1; SC1.X:=Length(S);SC1.Y:=CurPOS.Y-1;
@ -4882,7 +4889,7 @@ begin
SetStoreUndo(false); SetStoreUndo(false);
DeleteLine(CurPos.Y); DeleteLine(CurPos.Y);
LimitsChanged; LimitsChanged;
SetCurPtr(length(S),CurPos.Y-1); SetCurPtr(CI,CurPos.Y-1);
end; end;
end end
else else
@ -4982,7 +4989,7 @@ begin
Delete(S,CI,1); Delete(S,CI,1);
end; end;
SetLineText(CurPos.Y,S); SetLineText(CurPos.Y,S);
SDX:=-1; SDY:=0; SDX:=-1;SDY:=0;
end; end;
SetCurPtr(CurPos.X,CurPos.Y); SetCurPtr(CurPos.X,CurPos.Y);
UpdateAttrs(CurPos.Y,attrAll); UpdateAttrs(CurPos.Y,attrAll);
@ -7179,7 +7186,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.36 2002-09-12 08:42:07 pierre Revision 1.37 2002-12-16 15:13:58 pierre
+ added some missing word separator chars
Revision 1.36 2002/09/12 08:42:07 pierre
* removed lots of unnecessary copies of strings for syntax highlighting * removed lots of unnecessary copies of strings for syntax highlighting
Revision 1.35 2002/09/11 13:11:54 pierre Revision 1.35 2002/09/11 13:11:54 pierre