diff options
| author | Gerd Moellmann | 2001-10-11 15:37:13 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-11 15:37:13 +0000 |
| commit | 53ede3f4d857d792ca8e178f5b9170b843df1c1b (patch) | |
| tree | d558f1e224d5f13d0af0c93ad44e752ca15a44bd | |
| parent | d731e6b8b30d34849e728f2252d8b5773ae83963 (diff) | |
| download | emacs-53ede3f4d857d792ca8e178f5b9170b843df1c1b.tar.gz emacs-53ede3f4d857d792ca8e178f5b9170b843df1c1b.zip | |
(make_fixnum_or_float): New macro.
| -rw-r--r-- | src/lisp.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index 818b6e1163f..e51f2f64e56 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -3086,3 +3086,9 @@ extern Lisp_Object Vdirectory_sep_char; | |||
| 3086 | #endif | 3086 | #endif |
| 3087 | #define min(a, b) ((a) < (b) ? (a) : (b)) | 3087 | #define min(a, b) ((a) < (b) ? (a) : (b)) |
| 3088 | #define max(a, b) ((a) > (b) ? (a) : (b)) | 3088 | #define max(a, b) ((a) > (b) ? (a) : (b)) |
| 3089 | |||
| 3090 | /* Return a fixnum or float, depending on whether VAL fits in a Lisp | ||
| 3091 | fixnum. */ | ||
| 3092 | |||
| 3093 | #define make_fixnum_or_float(val) \ | ||
| 3094 | (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val)) | ||