comparison src/print.c @ 83400:03934708f1e9

Merged from [e-mail]--gnu-2005 (patch 152-156, 642-654) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-642 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-643 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-644 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-645 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-646 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-647 lisp/gnus/ChangeLog: Remove duplicate entry * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-648 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-649 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-650 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-651 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-652 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-653 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-654 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-152 Update from CVS: lisp/mml.el (mml-preview): Doc fix. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-153 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-154 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-155 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-156 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-440

83399:2988c5a31dc1

     Lisp_Object arg;
{
  Fprin1 (arg, Qexternal_debugging_output);
  fprintf (stderr, "\r\n");
}

DEFUN ("error-message-string", Ferror_message_string, Serror_message_string,
       1, 1, 0,
       doc: /* Convert an error value (ERROR-SYMBOL . DATA) to an error message.
See Info anchor `(elisp)Definition of signal' for some details on how this

83400:03934708f1e9

     Lisp_Object arg;
{
  Fprin1 (arg, Qexternal_debugging_output);
  fprintf (stderr, "\r\n");
}

void
safe_debug_print (arg)
     Lisp_Object arg;
{
  int valid = valid_lisp_object_p (arg);

  if (valid > 0)
    debug_print (arg);
  else
    fprintf (stderr, "#<%s_LISP_OBJECT 0x%08lx>\r\n",
	     !valid ? "INVALID" : "SOME",
#ifdef NO_UNION_TYPE
	     (unsigned long) arg
#else
	     (unsigned long) arg.i
#endif
	     );
}


DEFUN ("error-message-string", Ferror_message_string, Serror_message_string,
       1, 1, 0,
       doc: /* Convert an error value (ERROR-SYMBOL . DATA) to an error message.
See Info anchor `(elisp)Definition of signal' for some details on how this