From b06faa915ca75e14fcf64fda888bbf75299aee47 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 31 Oct 1992 05:17:14 +0000 Subject: [PATCH] * data.c (Fset): See if current_alist_element points to itself using EQ, not ==. (float_arith_driver): Declare this extern above arith_driver. --- src/data.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/data.c b/src/data.c index b1457879b94..70fb084fc97 100644 --- a/src/data.c +++ b/src/data.c @@ -801,7 +801,8 @@ DEFUN ("set", Fset, Sset, 2, 2, 0, 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 @@ DEFUN ("string-to-int", Fstring_to_int, Sstring_to_int, 1, 1, 0, enum arithop { Aadd, Asub, Amult, Adiv, Alogand, Alogior, Alogxor, Amax, Amin }; +extern Lisp_Object float_arith_driver (); + Lisp_Object arith_driver (code, nargs, args)