summaryrefslogtreecommitdiff
path: root/src/print.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1992-01-30 17:12:45 +0000
committerJim Blandy <jimb@redhat.com>1992-01-30 17:12:45 +0000
commit07b39d16b80daea73bf2aa9d7f864539f11663ed (patch)
treeaee265b1d61413d4434d5c41e4390b1a8dd6668c /src/print.c
parentc84a41971c4b3fbc6890ef1da274d2dd7a2d7399 (diff)
downloademacs-07b39d16b80daea73bf2aa9d7f864539f11663ed.tar.gz
*** empty log message ***
Diffstat (limited to 'src/print.c')
-rw-r--r--src/print.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/src/print.c b/src/print.c
index 3bf0796c061..b65db9aedc6 100644
--- a/src/print.c
+++ b/src/print.c
@@ -137,7 +137,7 @@ glyph_to_str_cpy (glyphs, str)
#define PRINTPREPARE \
original = printcharfun; \
- if (NULL (printcharfun)) printcharfun = Qt; \
+ if (NILP (printcharfun)) printcharfun = Qt; \
if (XTYPE (printcharfun) == Lisp_Buffer) \
{ if (XBUFFER (printcharfun) != current_buffer) Fset_buffer (printcharfun); \
printcharfun = Qnil;}\
@@ -301,7 +301,7 @@ STREAM defaults to the value of `standard-output' (which see).")
int start_point;
Lisp_Object original;
- if (NULL (printcharfun))
+ if (NILP (printcharfun))
printcharfun = Vstandard_output;
CHECK_NUMBER (ch, 0);
PRINTPREPARE;
@@ -438,7 +438,7 @@ If STREAM is omitted or nil, the value of `standard-output' is used.")
int start_point;
Lisp_Object original;
- if (NULL (printcharfun))
+ if (NILP (printcharfun))
printcharfun = Vstandard_output;
PRINTPREPARE;
PRINTCHAR ('\n');
@@ -462,7 +462,7 @@ Output stream is STREAM, or value of `standard-output' (which see).")
#ifdef MAX_PRINT_CHARS
max_print = 0;
#endif /* MAX_PRINT_CHARS */
- if (NULL (printcharfun))
+ if (NILP (printcharfun))
printcharfun = Vstandard_output;
PRINTPREPARE;
print_depth = 0;
@@ -491,7 +491,7 @@ second argument NOESCAPE is non-nil.")
printcharfun = Vprin1_to_string_buffer;
PRINTPREPARE;
print_depth = 0;
- print (obj, printcharfun, NULL (noescape));
+ print (obj, printcharfun, NILP (noescape));
/* Make Vprin1_to_string_buffer be the default buffer after PRINTFINSH */
PRINTFINISH;
set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
@@ -518,7 +518,7 @@ Output stream is STREAM, or value of standard-output (which see).")
int start_point;
Lisp_Object original;
- if (NULL (printcharfun))
+ if (NILP (printcharfun))
printcharfun = Vstandard_output;
PRINTPREPARE;
print_depth = 0;
@@ -545,7 +545,7 @@ Output stream is STREAM, or value of `standard-output' (which see).")
print_chars = 0;
max_print = MAX_PRINT_CHARS;
#endif /* MAX_PRINT_CHARS */
- if (NULL (printcharfun))
+ if (NILP (printcharfun))
printcharfun = Vstandard_output;
GCPRO1 (obj);
PRINTPREPARE;
@@ -602,7 +602,7 @@ float_to_string (buf, data)
register unsigned char *cp, c;
register int width;
- if (NULL (Vfloat_output_format)
+ if (NILP (Vfloat_output_format)
|| XTYPE (Vfloat_output_format) != Lisp_String)
lose:
sprintf (buf, "%.20g", data);
@@ -821,7 +821,7 @@ print (obj, printcharfun, escapeflag)
obj = Fcdr (obj);
}
}
- if (!NULL (obj) && !CONSP (obj))
+ if (!NILP (obj) && !CONSP (obj))
{
strout (" . ", 3, printcharfun);
print (obj, printcharfun, escapeflag);
@@ -848,7 +848,7 @@ print (obj, printcharfun, escapeflag)
#ifndef standalone
case Lisp_Buffer:
- if (NULL (XBUFFER (obj)->name))
+ if (NILP (XBUFFER (obj)->name))
strout ("#<killed buffer>", -1, printcharfun);
else if (escapeflag)
{
@@ -875,7 +875,7 @@ print (obj, printcharfun, escapeflag)
strout ("#<window ", -1, printcharfun);
sprintf (buf, "%d", XFASTINT (XWINDOW (obj)->sequence_number));
strout (buf, -1, printcharfun);
- if (!NULL (XWINDOW (obj)->buffer))
+ if (!NILP (XWINDOW (obj)->buffer))
{
strout (" on ", -1, printcharfun);
print_string (XBUFFER (XWINDOW (obj)->buffer)->name, printcharfun);