comparison src/print.c @ 69678:551e94bacb60

(print_output_debug_flag): New global variable. (Fexternal_debugging_output) [WINDOWSNT]: Don't call OutputDebugString if print_output_debug_flag is zero.

69677:cc26b4c9f86e

static int print_chars;
static int max_print;
#endif /* MAX_PRINT_CHARS */

void print_interval ();


/* Low level output routines for characters and strings */

/* Lisp functions to do output using a stream

  CHECK_NUMBER (character);
  putc (XINT (character), stderr);

#ifdef WINDOWSNT
  /* Send the output to a debugger (nothing happens if there isn't one).  */
  {
    char buf[2] = {(char) XINT (character), '\0'};
    OutputDebugString (buf);
  }
#endif

  return character;
}

69678:551e94bacb60

static int print_chars;
static int max_print;
#endif /* MAX_PRINT_CHARS */

void print_interval ();

/* GDB resets this to zero on W32 to disable OutputDebugString calls.  */
int print_output_debug_flag = 1;


/* Low level output routines for characters and strings */

/* Lisp functions to do output using a stream

  CHECK_NUMBER (character);
  putc (XINT (character), stderr);

#ifdef WINDOWSNT
  /* Send the output to a debugger (nothing happens if there isn't one).  */
  if (print_output_debug_flag)
    {
      char buf[2] = {(char) XINT (character), '\0'};
      OutputDebugString (buf);
    }
#endif

  return character;
}