Differences From Artifact [d27a8aa443]:

• File src/natools-s_expressions-printers-pretty.adb — part of check-in [78cfd91715] at 2014-07-31 19:16:38 on branch trunk — s_expressions-printers-pretty: fix width of tab-only indentations (user: nat size: 36795)

To Artifact [33ea8fdc6a]:

• File src/natools-s_expressions-printers-pretty.adb — part of check-in [87d479c3f0] at 2014-08-04 20:26:13 on branch trunk — s_expressions-printers-pretty: fix size estimation of verbatim encoding (user: nat size: 36841)

910
911
912
913
914
915
916

917
918
919
920
921
922
923

                  I : Count := 10;
               begin
                  Size := 2;
                  while Data'Length >= I loop
                     Size := Size + 1;
                     I := I * 10;
                  end loop;

               end;
         end case;

         if Output.Param.Quoted = When_Shorter
           and then Multi_Line_Quoted_Size (Output, Data) <= Size
         then
            if Output.Need_Blank then

>

910
911
912
913
914
915
916
917
918
919
920
921
922
923
924

                  I : Count := 10;
               begin
                  Size := 2;
                  while Data'Length >= I loop
                     Size := Size + 1;
                     I := I * 10;
                  end loop;
                  Size := Size + Data'Length;
               end;
         end case;

         if Output.Param.Quoted = When_Shorter
           and then Multi_Line_Quoted_Size (Output, Data) <= Size
         then
            if Output.Need_Blank then