aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorStefan Monnier2011-02-01 12:09:25 -0500
committerStefan Monnier2011-02-01 12:09:25 -0500
commit8f1d2ef658f95549eb33fe5265f8f11c5129bece (patch)
treeb7cd852a1adb423384532cfe22c31547160b22bc /src/data.c
parent590130fb19e1f433965c421d98fedeb2d7c33310 (diff)
parent1dc4075fa8809805aed5092e93e225e889725c94 (diff)
downloademacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.tar.gz
emacs-8f1d2ef658f95549eb33fe5265f8f11c5129bece.zip
Merge from trunk
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c13
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
6This file is part of GNU Emacs. 5This file is part of GNU Emacs.
@@ -94,8 +93,6 @@ Lisp_Object Qinteractive_form;
94 93
95static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *); 94static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *);
96 95
97Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
98
99 96
100void 97void
101circular_list_error (Lisp_Object list) 98circular_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) */