diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-10-31 05:17:14 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-10-31 05:17:14 +0000 |
| commit | b06faa915ca75e14fcf64fda888bbf75299aee47 (patch) | |
| tree | 925d86ed0b64a562322a5518206ff456c252c519 /src | |
| parent | 3cfd58255d3533aef3c6cdba5d0bb29788aaf12b (diff) | |
* data.c (Fset): See if current_alist_element points to itself
using EQ, not ==.
(float_arith_driver): Declare this extern above arith_driver.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 4 insertions, 1 deletions
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) |