From: Stefan Monnier Date: Wed, 26 Mar 2008 18:14:02 +0000 (+0000) Subject: (syms_of_data): Mark most-positive-fixnum and X-Git-Tag: emacs-pretest-23.0.90~6888 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c397dc7a0d67ddd6aabb054e31c18f8765e7405f;p=emacs.git (syms_of_data): Mark most-positive-fixnum and most-negative-fixnum as constants. --- diff --git a/src/ChangeLog b/src/ChangeLog index a246449bfb7..52aeaf130a1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2008-03-26 Stefan Monnier + * data.c (syms_of_data): Mark most-positive-fixnum and + most-negative-fixnum as constants. + * xdisp.c (redisplay_internal): Reset selected_frame earlier. * indent.c (scan_for_column): Extract from current_column_1. diff --git a/src/data.c b/src/data.c index 6f1256786ec..6b1a9fc8860 100644 --- a/src/data.c +++ b/src/data.c @@ -3231,10 +3231,12 @@ syms_of_data () 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 ("most-positive-fixnum"))->constant = 1; 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 ("most-negative-fixnum"))->constant = 1; } SIGTYPE