anchor.diff:  var
     LexersAsked: TList = nil;
   
  -procedure DoClearLexersAskedList;
  -begin
  -  if Assigned(LexersAsked) then
  -    LexersAsked.Clear;
  +procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
  +var
  +  n: integer;
  +begin
  +  if not Assigned(LexersAsked) then exit;
  +
  +  if an=nil then
  +    LexersAsked.Clear
  +  else
  +  begin
  +    n:= LexersAsked.IndexOf(an);
  +    if n>=0 then LexersAsked.Delete(n);
  +  end;
   end;
   
   procedure DoStyleAssign(s, s2: TecSyntaxFormat);
  
positive.code:     if Result then
      begin
        F.DoSave;
        DoApplyLexerStylesMap(an);
      end;
    finally
  
negative.code: 
  function DoApplyLexerStylesMap(an: TecSyntAnalyzer): boolean;
  function DoDialogLexerStylesMap(an: TecSyntAnalyzer): boolean;
  procedure DoClearLexersAskedList(an: TecSyntAnalyzer = nil);
  
  
  implementation
  