diff options
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 42d9e076e8..8b1f4a035b 100644 --- a/src/data.c +++ b/src/data.c @@ -1,6 +1,5 @@ /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. - Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999, 2000, - 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 + Copyright (C) 1985-1986, 1988, 1993-1995, 1997-2011 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -94,8 +93,6 @@ Lisp_Object Qinteractive_form; static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *); -Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; - void circular_list_error (Lisp_Object list) @@ -2385,7 +2382,7 @@ NUMBER may be an integer or a floating point number. */) if (FLOATP (number)) { - char pigbuf[350]; /* see comments in float_to_string */ + char pigbuf[FLOAT_TO_STRING_BUFSIZE]; float_to_string (pigbuf, XFLOAT_DATA (number)); return build_string (pigbuf); @@ -3313,12 +3310,12 @@ syms_of_data (void) XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; - DEFVAR_LISP ("most-positive-fixnum", &Vmost_positive_fixnum, + DEFVAR_LISP ("most-positive-fixnum", Vmost_positive_fixnum, doc: /* The largest value that is representable in a Lisp integer. */); Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM); XSYMBOL (intern_c_string ("most-positive-fixnum"))->constant = 1; - DEFVAR_LISP ("most-negative-fixnum", &Vmost_negative_fixnum, + DEFVAR_LISP ("most-negative-fixnum", Vmost_negative_fixnum, doc: /* The smallest value that is representable in a Lisp integer. */); Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); XSYMBOL (intern_c_string ("most-negative-fixnum"))->constant = 1; @@ -3351,5 +3348,3 @@ init_data (void) #endif /* uts */ } -/* arch-tag: 25879798-b84d-479a-9c89-7d148e2109f7 - (do not change this comment) */ |