X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fconbuf.pas;h=12b0a6e71db79a8f4d9deaf16b91b2eee7ec8bb2;hb=3049aec7dbcc5e50e0f59be54ee94cf4e10e4c6a;hp=4bb1bea0af8b0e8620f580785347a117bdb0c037;hpb=58b15f7d5aee8dc280a2e407c11a1f0448eea7ef;p=d2df-sdl.git

diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas
index 4bb1bea..12b0a6e 100644
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
@@ -41,6 +41,7 @@ procedure cbufClear ();
 
 var
   conbufDumpToStdOut: Boolean = false;
+  conbufConPrefix: Boolean = true;
 
 
 implementation
@@ -78,7 +79,11 @@ begin
     begin
       for np := 0 to count-1 do
       begin
-        if needCon then begin write(stdout, 'CON: '); needCon := false; end;
+        if needCon then
+        begin
+          if conbufConPrefix then write(stdout, 'CON: ');
+          needCon := false;
+        end;
         write(stdout, buf[np]);
         needCon := (buf[np] = #10);
       end;