anchor.diff:    if not IsFilenameListedInExtensionList(FileName, EditorOps.OpUnderlineColorFiles)
       then exit;
   
  -  for i:= 1 to Length(AStr) do
  +  for i:= 1 to Length(AStr)-3 do
     begin
       Ch:= AStr[i];
   
  
positive.code:         end;
      end
      else
      if (Ch='h') and //fast check
        (Copy(AStr, i, 3)='hsl') and //slow check
        ((i=1) or not IsCharWord(AStr[i-1], '')) //word boundary
        then
        begin
  
negative.code:     end
      else
      //find "rgb(...)"
      if (Ch='r') and
        (AStr[i+1]='g') and
        (AStr[i+2]='b') and
         ((i=1) or not IsCharWord(AStr[i-1], '')) //word boundary
      then
      begin
  