comparison src/dispnew.c @ 90789:c0409ee15cee

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 670-674) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 209-210) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-185

90788:a12805fdabe8

       doc: /* Start writing all terminal output to FILE as well as the terminal.
FILE = nil means just close any termscript file currently open.  */)
     (file)
     Lisp_Object file;
{
  if (termscript != 0) fclose (termscript);
  termscript = 0;

  if (! NILP (file))
    {
      file = Fexpand_file_name (file, Qnil);

     (string)
     Lisp_Object string;
{
  /* ??? Perhaps we should do something special for multibyte strings here.  */
  CHECK_STRING (string);
  fwrite (SDATA (string), 1, SBYTES (string), stdout);
  fflush (stdout);
  if (termscript)
    {
      fwrite (SDATA (string), 1, SBYTES (string),
	      termscript);
      fflush (termscript);
    }
  return Qnil;
}


DEFUN ("ding", Fding, Sding, 0, 1, 0,

90789:c0409ee15cee

       doc: /* Start writing all terminal output to FILE as well as the terminal.
FILE = nil means just close any termscript file currently open.  */)
     (file)
     Lisp_Object file;
{
  if (termscript != 0)
    {
      BLOCK_INPUT;
      fclose (termscript);
      UNBLOCK_INPUT;
    }
  termscript = 0;

  if (! NILP (file))
    {
      file = Fexpand_file_name (file, Qnil);

     (string)
     Lisp_Object string;
{
  /* ??? Perhaps we should do something special for multibyte strings here.  */
  CHECK_STRING (string);
  BLOCK_INPUT;
  fwrite (SDATA (string), 1, SBYTES (string), stdout);
  fflush (stdout);
  if (termscript)
    {
      fwrite (SDATA (string), 1, SBYTES (string),
	      termscript);
      fflush (termscript);
    }
  UNBLOCK_INPUT;
  return Qnil;
}


DEFUN ("ding", Fding, Sding, 0, 1, 0,