Mercurial > emacs
comparison src/lisp.h @ 20123:721fb6981822
(DBL_DIG): Remove; the default value is now set in print.c.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Thu, 23 Oct 1997 04:29:36 +0000 |
| parents | 328233592e3b |
| children | bf0a54297d95 |
comparison
equal
deleted
inserted
replaced
| 20122:923e1f635ace | 20123:721fb6981822 |
|---|---|
| 1127 #define CHECK_NUMBER_COERCE_MARKER(x, i) \ | 1127 #define CHECK_NUMBER_COERCE_MARKER(x, i) \ |
| 1128 do { if (MARKERP ((x))) XSETFASTINT (x, marker_position (x)); \ | 1128 do { if (MARKERP ((x))) XSETFASTINT (x, marker_position (x)); \ |
| 1129 else if (!INTEGERP ((x))) x = wrong_type_argument (Qinteger_or_marker_p, (x)); } while (0) | 1129 else if (!INTEGERP ((x))) x = wrong_type_argument (Qinteger_or_marker_p, (x)); } while (0) |
| 1130 | 1130 |
| 1131 #ifdef LISP_FLOAT_TYPE | 1131 #ifdef LISP_FLOAT_TYPE |
| 1132 | |
| 1133 #ifndef DBL_DIG | |
| 1134 #define DBL_DIG 20 | |
| 1135 #endif | |
| 1136 | 1132 |
| 1137 #define XFLOATINT(n) extract_float((n)) | 1133 #define XFLOATINT(n) extract_float((n)) |
| 1138 | 1134 |
| 1139 #define CHECK_FLOAT(x, i) \ | 1135 #define CHECK_FLOAT(x, i) \ |
| 1140 do { if (!FLOATP (x)) \ | 1136 do { if (!FLOATP (x)) \ |