From 9d113d9d5846e0a0c34af85f22b8a9cf8ac7c78f Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 7 Dec 2001 12:15:35 +0000 Subject: [PATCH] (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. --- src/ChangeLog | 7 +++++++ 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 + + * 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 * 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 -- 2.39.2