532 |
|
|
533 |
if (NILP (printcharfun)) |
if (NILP (printcharfun)) |
534 |
printcharfun = Vstandard_output; |
printcharfun = Vstandard_output; |
535 |
CHECK_NUMBER (character, 0); |
CHECK_NUMBER (character); |
536 |
PRINTPREPARE; |
PRINTPREPARE; |
537 |
PRINTCHAR (XINT (character)); |
PRINTCHAR (XINT (character)); |
538 |
PRINTFINISH; |
PRINTFINISH; |
663 |
|
|
664 |
GCPRO1(args); |
GCPRO1(args); |
665 |
name = Feval (Fcar (args)); |
name = Feval (Fcar (args)); |
666 |
CHECK_STRING (name, 0); |
CHECK_STRING (name); |
667 |
temp_output_buffer_setup (XSTRING (name)->data); |
temp_output_buffer_setup (XSTRING (name)->data); |
668 |
buf = Vstandard_output; |
buf = Vstandard_output; |
669 |
UNGCPRO; |
UNGCPRO; |
875 |
(character) |
(character) |
876 |
Lisp_Object character; |
Lisp_Object character; |
877 |
{ |
{ |
878 |
CHECK_NUMBER (character, 0); |
CHECK_NUMBER (character); |
879 |
putc (XINT (character), stderr); |
putc (XINT (character), stderr); |
880 |
|
|
881 |
#ifdef WINDOWSNT |
#ifdef WINDOWSNT |