diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:58:12 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 01:58:12 +0000 |
| commit | f8ecb5f87380c25a0563169ae94b86873b6e1035 (patch) | |
| tree | 4af3e5d2312eef112f57436c4ff47effc9209291 | |
| parent | ea4250aae5e14a45543355143bfa236de08d3019 (diff) | |
| download | emacs-f8ecb5f87380c25a0563169ae94b86873b6e1035.tar.gz | |
(PRINTPREPARE, PRINTFINISH, float_to_string, print): Use type test macros.
| -rw-r--r-- | src/print.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/src/print.c b/src/print.c index f9572d69744..ea9e00f9ccd 100644 --- a/src/print.c +++ b/src/print.c @@ -144,11 +144,11 @@ glyph_to_str_cpy (glyphs, str) #define PRINTPREPARE \ original = printcharfun; \ if (NILP (printcharfun)) printcharfun = Qt; \ - if (XTYPE (printcharfun) == Lisp_Buffer) \ + if (BUFFERP (printcharfun)) \ { if (XBUFFER (printcharfun) != current_buffer) \ Fset_buffer (printcharfun); \ printcharfun = Qnil;} \ - if (XTYPE (printcharfun) == Lisp_Marker) \ + if (MARKERP (printcharfun)) \ { if (!(XMARKER (original)->buffer)) \ error ("Marker does not point anywhere"); \ if (XMARKER (original)->buffer != current_buffer) \ @@ -159,7 +159,7 @@ glyph_to_str_cpy (glyphs, str) printcharfun = Qnil;} #define PRINTFINISH \ - if (XTYPE (original) == Lisp_Marker) \ + if (MARKERP (original)) \ Fset_marker (original, make_number (point), Qnil); \ if (old_point >= 0) \ SET_PT (old_point + (old_point >= start_point \ @@ -638,7 +638,7 @@ float_to_string (buf, data) int width; if (NILP (Vfloat_output_format) - || XTYPE (Vfloat_output_format) != Lisp_String) + || !STRINGP (Vfloat_output_format)) lose: { sprintf (buf, "%.17g", data); @@ -719,8 +719,7 @@ print (obj, printcharfun, escapeflag) #if 1 /* I'm not sure this is really worth doing. */ /* Detect circularities and truncate them. No need to offer any alternative--this is better than an error. */ - if (XTYPE (obj) == Lisp_Cons || XTYPE (obj) == Lisp_Vector - || XTYPE (obj) == Lisp_Compiled) + if (CONSP (obj) || VECTORP (obj) || COMPILEDP (obj)) { int i; for (i = 0; i < print_depth; i++) @@ -870,7 +869,7 @@ print (obj, printcharfun, escapeflag) case Lisp_Cons: /* If deeper than spec'd depth, print placeholder. */ - if (XTYPE (Vprint_level) == Lisp_Int + if (INTEGERP (Vprint_level) && print_depth > XINT (Vprint_level)) { strout ("...", -1, printcharfun); @@ -882,7 +881,7 @@ print (obj, printcharfun, escapeflag) register int i = 0; register int max = 0; - if (XTYPE (Vprint_length) == Lisp_Int) + if (INTEGERP (Vprint_length)) max = XINT (Vprint_length); /* Could recognize circularities in cdrs here, but that would make printing of long lists quadratic. |