less warns

Alexey-T · Feb 27, 2020 · 1978ae3 · 1978ae3
1 parent 14dd2ea
commit 1978ae3
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/atsynedit/atstringproc_wordjump.pas b/atsynedit/atstringproc_wordjump.pas
@@ -34,11 +34,11 @@ procedure SFindSpacesBounds(const S: atString; AOffset: integer; out AOffset1,
 
 implementation
 
-{
+(*
 const
   //no chars '@' (email) and '$' (used in php)
   cCharsSymbols: atString = '!"#%&''()[]{}<>*+-/=,.:;?\^`|~‚„…‹›‘’“”–—¦«»±';
-}
+*)
 
 type
   TCharGroup = (cgSpaces, cgSymbols, cgWord);

diff --git a/atsynedit/atsynedit_canvasproc.pas b/atsynedit/atsynedit_canvasproc.pas
@@ -515,7 +515,9 @@ procedure CanvasTextOut(C: TCanvas; APosX, APosY: integer; AText: atString;
   Buf: string;
   BufW: UnicodeString;
   DxPointer: PInteger;
+  {$ifdef windows}
   bAllowLigatures: boolean;
+  {$endif}
 begin
   NLen:= Length(AText);
   if NLen=0 then Exit;

diff --git a/atsynedit/atsynedit_finder.pas b/atsynedit/atsynedit_finder.pas
@@ -383,7 +383,7 @@ procedure TATTextFinder.DoOnFound;
 
 function TATTextFinder.CheckTokens(APos: integer): boolean;
 begin
-  //
+  Result:= true;
 end;
 
 function TATTextFinder.DoFind_Regex(AFromPos: integer): boolean;
@@ -1734,7 +1734,7 @@ function TATEditorFinder.FindMatch_InEditor(APosStart, APosEnd: TPoint;
 var
   Strs: TATStrings;
   SFind, SLineToTest: UnicodeString;
-  NStartOffset, NEndOffset, NLenStrFind: integer;
+  NStartOffset, NEndOffset: integer;
   IndexLine, IndexChar, IndexLineMax, i: integer;
   bOk: boolean;
 begin
@@ -1746,7 +1746,6 @@ function TATEditorFinder.FindMatch_InEditor(APosStart, APosEnd: TPoint;
   SFind:= StrFind;
   if not OptCase then
     SFind:= WideUpperCase(SFind);
-  NLenStrFind:= Length(SFind);
 
   StringArray_SetFromString(ListParts, SFind, OptBack);
   PartCount:= Length(ListParts);