diff options
| author | Stefan Monnier | 2011-02-01 12:09:25 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2011-02-01 12:09:25 -0500 |
| commit | 8f1d2ef658f95549eb33fe5265f8f11c5129bece (patch) | |
| tree | b7cd852a1adb423384532cfe22c31547160b22bc /src/data.c | |
| parent | 590130fb19e1f433965c421d98fedeb2d7c33310 (diff) | |
| parent | 1dc4075fa8809805aed5092e93e225e889725c94 (diff) | |
| download | emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.tar.gz emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.zip | |
Merge from trunk
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/data.c b/src/data.c index 42d9e076e80..8b1f4a035ba 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1,6 +1,5 @@ | |||
| 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. | 1 | /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999, 2000, | 2 | Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2011 |
| 3 | 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 | ||
| 4 | Free Software Foundation, Inc. | 3 | Free Software Foundation, Inc. |
| 5 | 4 | ||
| 6 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -94,8 +93,6 @@ Lisp_Object Qinteractive_form; | |||
| 94 | 93 | ||
| 95 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *); | 94 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *); |
| 96 | 95 | ||
| 97 | Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; | ||
| 98 | |||
| 99 | 96 | ||
| 100 | void | 97 | void |
| 101 | circular_list_error (Lisp_Object list) | 98 | circular_list_error (Lisp_Object list) |
| @@ -2385,7 +2382,7 @@ NUMBER may be an integer or a floating point number. */) | |||
| 2385 | 2382 | ||
| 2386 | if (FLOATP (number)) | 2383 | if (FLOATP (number)) |
| 2387 | { | 2384 | { |
| 2388 | char pigbuf[350]; /* see comments in float_to_string */ | 2385 | char pigbuf[FLOAT_TO_STRING_BUFSIZE]; |
| 2389 | 2386 | ||
| 2390 | float_to_string (pigbuf, XFLOAT_DATA (number)); | 2387 | float_to_string (pigbuf, XFLOAT_DATA (number)); |
| 2391 | return build_string (pigbuf); | 2388 | return build_string (pigbuf); |
| @@ -3313,12 +3310,12 @@ syms_of_data (void) | |||
| 3313 | 3310 | ||
| 3314 | XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; | 3311 | XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; |
| 3315 | 3312 | ||
| 3316 | DEFVAR_LISP ("most-positive-fixnum", &Vmost_positive_fixnum, | 3313 | DEFVAR_LISP ("most-positive-fixnum", Vmost_positive_fixnum, |
| 3317 | doc: /* The largest value that is representable in a Lisp integer. */); | 3314 | doc: /* The largest value that is representable in a Lisp integer. */); |
| 3318 | Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM); | 3315 | Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM); |
| 3319 | XSYMBOL (intern_c_string ("most-positive-fixnum"))->constant = 1; | 3316 | XSYMBOL (intern_c_string ("most-positive-fixnum"))->constant = 1; |
| 3320 | 3317 | ||
| 3321 | DEFVAR_LISP ("most-negative-fixnum", &Vmost_negative_fixnum, | 3318 | DEFVAR_LISP ("most-negative-fixnum", Vmost_negative_fixnum, |
| 3322 | doc: /* The smallest value that is representable in a Lisp integer. */); | 3319 | doc: /* The smallest value that is representable in a Lisp integer. */); |
| 3323 | Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); | 3320 | Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); |
| 3324 | XSYMBOL (intern_c_string ("most-negative-fixnum"))->constant = 1; | 3321 | XSYMBOL (intern_c_string ("most-negative-fixnum"))->constant = 1; |
| @@ -3351,5 +3348,3 @@ init_data (void) | |||
| 3351 | #endif /* uts */ | 3348 | #endif /* uts */ |
| 3352 | } | 3349 | } |
| 3353 | 3350 | ||
| 3354 | /* arch-tag: 25879798-b84d-479a-9c89-7d148e2109f7 | ||
| 3355 | (do not change this comment) */ | ||