comparison src/data.c @ 1508:768d4c10c2bf

* data.c (Fset): See if current_alist_element points to itself using EQ, not ==. (float_arith_driver): Declare this extern above arith_driver.

1507:b265afeb9203

	 we're looking at the default value, the cache is invalid; we
	 need to write it out, and find the new CURRENT-ALIST-ELEMENT.  */
      if ((current_buffer
	   != XBUFFER (XCONS (XCONS (valcontents)->cdr)->car))
	  || (XTYPE (valcontents) == Lisp_Buffer_Local_Value
	      && XCONS (current_alist_element)->car == current_alist_element))
	{
	  /* Write out the cached value for the old buffer; copy it
	     back to its alist element.  This works if the current
	     buffer only sees the default value, too.  */
          Fsetcdr (current_alist_element,

  return make_number (atoi (XSTRING (str)->data));
}
  
enum arithop
  { Aadd, Asub, Amult, Adiv, Alogand, Alogior, Alogxor, Amax, Amin };

Lisp_Object
arith_driver
  (code, nargs, args)
     enum arithop code;

1508:768d4c10c2bf

	 we're looking at the default value, the cache is invalid; we
	 need to write it out, and find the new CURRENT-ALIST-ELEMENT.  */
      if ((current_buffer
	   != XBUFFER (XCONS (XCONS (valcontents)->cdr)->car))
	  || (XTYPE (valcontents) == Lisp_Buffer_Local_Value
	      && EQ (XCONS (current_alist_element)->car,
		     current_alist_element)))
	{
	  /* Write out the cached value for the old buffer; copy it
	     back to its alist element.  This works if the current
	     buffer only sees the default value, too.  */
          Fsetcdr (current_alist_element,

  return make_number (atoi (XSTRING (str)->data));
}
  
enum arithop
  { Aadd, Asub, Amult, Adiv, Alogand, Alogior, Alogxor, Amax, Amin };

extern Lisp_Object float_arith_driver ();

Lisp_Object
arith_driver
  (code, nargs, args)
     enum arithop code;