diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/data.c | 14 |
2 files changed, 14 insertions, 7 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 23e7753092a..966ce1209f2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2001-12-07 Andreas Schwab <schwab@suse.de> + + * data.c (Vmost_positive_fixnum, Vmost_negative_fixnum): Renamed + from most_positive_fixnum and most_negative_fixnum, resp., and + type changed to Lisp_Object. + (syms_of_data): DEFVAR_LISP them. + 2001-12-07 Richard M. Stallman <rms@gnu.org> * callproc.c (init_callproc): Set Vdata_directory based on the source diff --git a/src/data.c b/src/data.c index 266a1946fa0..f47167af292 100644 --- a/src/data.c +++ b/src/data.c @@ -96,7 +96,7 @@ static Lisp_Object Qsubrp, Qmany, Qunevalled; static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); -int most_positive_fixnum, most_negative_fixnum; +Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; void @@ -3208,13 +3208,13 @@ syms_of_data () XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; - DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum, - doc: /* The largest value that is representable in a Lisp integer. */); - most_positive_fixnum = MOST_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); - DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum, - doc: /* The smallest value that is representable in a Lisp integer. */); - most_negative_fixnum = MOST_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); } SIGTYPE |