mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

* data.c (Fset): See if current_alist_element points to itself

Browse source 
using EQ, not ==.
	(float_arith_driver): Declare this extern above arith_driver.
This commit is contained in:
Jim Blandy 1992-10-31 05:17:14 +00:00
parent 3cfd58255d
commit b06faa915c
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/data.c
View file

@ -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)