anchor.diff:    ADocCommentIsAlsoComment: boolean=true): TATTokenKind;
   function EditorExpandSelectionToWord(Ed: TATSynEdit;
     AFinderResultCallback: TATEditorFinderCallback;
  -  AAndSelect, AWholeWords: boolean): boolean;
  +  AAddOrSkip, AWholeWords: boolean): boolean;
   function EditorFindCurrentWordOrSel(Ed: TATSynEdit;
     ANext, AWordOrSel, AOptCase, AOptWrapped: boolean;
     out Str: UnicodeString): boolean;
  
positive.code:       Ed.Markers.Delete(iMarker);
        Break
      end;
    end;
  
    if not bSel then
  
negative.code: 
        if Result then
        begin
          if bForwardSel then
            Ed.Carets.Add(
              Finder.MatchEdEnd.X,
              Finder.MatchEdEnd.Y,
              Finder.MatchEdPos.X,
              Finder.MatchEdPos.Y
              )
          else
            Ed.Carets.Add(
              Finder.MatchEdPos.X,
              Finder.MatchEdPos.Y,
              Finder.MatchEdEnd.X,
              Finder.MatchEdEnd.Y
              );
          //sort carets: maybe we added caret in the middle
          Ed.Carets.Sort;
  
          if Finder.MatchEdEnd.Y=Finder.MatchEdPos.Y then
            NSelLen:= Finder.MatchEdEnd.X-Finder.MatchEdPos.X
  