Mercurial > emacs
diff 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 31 Oct 1992 05:17:14 +0000 |
| parents | 95ae0805ebba |
| children | 27e9f99fe095 |
line wrap: on
line diff
--- 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)