diff options
| author | Andreas Schwab | 2001-12-07 12:15:35 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2001-12-07 12:15:35 +0000 |
| commit | 9d113d9d5846e0a0c34af85f22b8a9cf8ac7c78f (patch) | |
| tree | 61e7d21e4ea910e664303cf85a67f9e06daacfdb /src | |
| parent | b5f1c9fa029b1d377165eb31618c52c4c0a77164 (diff) | |
| download | emacs-9d113d9d5846e0a0c34af85f22b8a9cf8ac7c78f.tar.gz emacs-9d113d9d5846e0a0c34af85f22b8a9cf8ac7c78f.zip | |
(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.
Diffstat (limited to 'src')
| -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 @@ | |||
| 1 | 2001-12-07 Andreas Schwab <schwab@suse.de> | ||
| 2 | |||
| 3 | * data.c (Vmost_positive_fixnum, Vmost_negative_fixnum): Renamed | ||
| 4 | from most_positive_fixnum and most_negative_fixnum, resp., and | ||
| 5 | type changed to Lisp_Object. | ||
| 6 | (syms_of_data): DEFVAR_LISP them. | ||
| 7 | |||
| 1 | 2001-12-07 Richard M. Stallman <rms@gnu.org> | 8 | 2001-12-07 Richard M. Stallman <rms@gnu.org> |
| 2 | 9 | ||
| 3 | * callproc.c (init_callproc): Set Vdata_directory based on the source | 10 | * 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; | |||
| 96 | 96 | ||
| 97 | static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); | 97 | static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); |
| 98 | 98 | ||
| 99 | int most_positive_fixnum, most_negative_fixnum; | 99 | Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum; |
| 100 | 100 | ||
| 101 | 101 | ||
| 102 | void | 102 | void |
| @@ -3208,13 +3208,13 @@ syms_of_data () | |||
| 3208 | 3208 | ||
| 3209 | XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; | 3209 | XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function; |
| 3210 | 3210 | ||
| 3211 | DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum, | 3211 | DEFVAR_LISP ("most-positive-fixnum", &Vmost_positive_fixnum, |
| 3212 | doc: /* The largest value that is representable in a Lisp integer. */); | 3212 | doc: /* The largest value that is representable in a Lisp integer. */); |
| 3213 | most_positive_fixnum = MOST_POSITIVE_FIXNUM; | 3213 | Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM); |
| 3214 | 3214 | ||
| 3215 | DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum, | 3215 | DEFVAR_LISP ("most-negative-fixnum", &Vmost_negative_fixnum, |
| 3216 | doc: /* The smallest value that is representable in a Lisp integer. */); | 3216 | doc: /* The smallest value that is representable in a Lisp integer. */); |
| 3217 | most_negative_fixnum = MOST_NEGATIVE_FIXNUM; | 3217 | Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); |
| 3218 | } | 3218 | } |
| 3219 | 3219 | ||
| 3220 | SIGTYPE | 3220 | SIGTYPE |