# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 720508634 0
# Node ID 768d4c10c2bfdebc264d40030ca613cdcb4399fb
# Parent  b265afeb920306f43b5304599ea03c85b6d5dae9
	* data.c (Fset): See if current_alist_element points to itself
	using EQ, not ==.
	(float_arith_driver): Declare this extern above arith_driver.

diff -r b265afeb9203 -r 768d4c10c2bf src/data.c
--- a/src/data.c	Sat Oct 31 04:55:35 1992 +0000
+++ b/src/data.c	Sat Oct 31 05:17:14 1992 +0000
@@ -801,7 +801,8 @@
       if ((current_buffer
 	   != XBUFFER (XCONS (XCONS (valcontents)->cdr)->car))
 	  || (XTYPE (valcontents) == Lisp_Buffer_Local_Value
-	      && XCONS (current_alist_element)->car == current_alist_element))
+	      && 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
@@ -1468,6 +1469,8 @@
 enum arithop
   { Aadd, Asub, Amult, Adiv, Alogand, Alogior, Alogxor, Amax, Amin };
 
+extern Lisp_Object float_arith_driver ();
+
 Lisp_Object
 arith_driver
   (code, nargs, args)