[Emacs-diffs] Changes to emacs/src/lisp.h

[Stefan Monnier]

Index: emacs/src/lisp.h
diff -c emacs/src/lisp.h:1.451 emacs/src/lisp.h:1.452
*** emacs/src/lisp.h:1.451      Wed Apr 30 08:06:39 2003
--- emacs/src/lisp.h    Wed Apr 30 20:36:21 2003
***************
*** 60,68 ****
  
  #ifdef ENABLE_CHECKING
  
! #define CHECK(check,msg) ((check || suppress_checking         \
                           ? (void) 0                           \
!                          : die (msg, __FILE__, __LINE__)),    \
                          0)
  
  /* Let's get some compile-time checking too.  */
--- 60,68 ----
  
  #ifdef ENABLE_CHECKING
  
! #define CHECK(check,msg) (((check) || suppress_checking               \
                           ? (void) 0                           \
!                          : die ((msg), __FILE__, __LINE__)),  \
                          0)
  
  /* Let's get some compile-time checking too.  */
***************
*** 335,341 ****
  
  /* For integers known to be positive, XFASTINT provides fast retrieval
     and XSETFASTINT provides fast storage.  This takes advantage of the
!    fact that Lisp_Int is 0.  */
  #define XFASTINT(a) ((a) + 0)
  #define XSETFASTINT(a, b) ((a) = (b))
  
--- 335,344 ----
  
  /* For integers known to be positive, XFASTINT provides fast retrieval
     and XSETFASTINT provides fast storage.  This takes advantage of the
!    fact that Lisp_Int is 0.
!    Beware: XFASTINT applied to a non-positive integer or to something
!    else than an integer should return something that preserves all the
!    info that was in the Lisp_Object, because it is used in EQ.  */
  #define XFASTINT(a) ((a) + 0)
  #define XSETFASTINT(a, b) ((a) = (b))
  
***************
*** 1691,1699 ****
  
     If func is non-zero, undoing this binding applies func to old_value;
        This implements record_unwind_protect.
-    If func is zero and symbol is nil, undoing this binding evaluates
-       the list of forms in old_value; this implements Lisp's unwind-protect
-       form.
  
     Otherwise, the element is a variable binding.
  
--- 1694,1699 ----