/[emacs]/emacs/src/data.c
ViewVC logotype

Diff of /emacs/src/data.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.207 by pj, Fri Nov 16 18:19:58 2001 UTC revision 1.208 by schwab, Fri Dec 7 12:15:21 2001 UTC
# Line 96  static Lisp_Object Qsubrp, Qmany, Quneva Line 96  static Lisp_Object Qsubrp, Qmany, Quneva
96    
97  static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));  static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
98    
99  int most_positive_fixnum, most_negative_fixnum;  Lisp_Object Vmost_positive_fixnum, Vmost_negative_fixnum;
100    
101    
102  void  void
# Line 3208  syms_of_data () Line 3208  syms_of_data ()
3208    
3209    XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;    XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;
3210    
3211    DEFVAR_INT ("most-positive-fixnum", &most_positive_fixnum,    DEFVAR_LISP ("most-positive-fixnum", &Vmost_positive_fixnum,
3212                doc: /* The largest value that is representable in a Lisp integer.  */);                 doc: /* The largest value that is representable in a Lisp integer.  */);
3213    most_positive_fixnum = MOST_POSITIVE_FIXNUM;    Vmost_positive_fixnum = make_number (MOST_POSITIVE_FIXNUM);
3214        
3215    DEFVAR_INT ("most-negative-fixnum", &most_negative_fixnum,    DEFVAR_LISP ("most-negative-fixnum", &Vmost_negative_fixnum,
3216                doc: /* The smallest value that is representable in a Lisp integer.  */);                 doc: /* The smallest value that is representable in a Lisp integer.  */);
3217    most_negative_fixnum = MOST_NEGATIVE_FIXNUM;    Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM);
3218  }  }
3219    
3220  SIGTYPE  SIGTYPE

Legend:
Removed from v.1.207  
changed lines
  Added in v.1.208

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26