procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fset, default_value, Fset_default, Fkill_local_variable): Access

Browse source 
buffer_local_flags as Lisp_Object, not int.
This commit is contained in:
Karl Heuer 1994-10-06 22:32:11 +00:00
parent 2836d9a4dc
commit 865c050f41
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/data.c
View file

@ -829,7 +829,8 @@ DEFUN ("set", Fset, Sset, 2, 2, 0,
if (BUFFER_OBJFWDP (valcontents))
{
register int idx = XUINT (valcontents);
register int mask = *(int *)(idx + (char *) &buffer_local_flags);
register int mask = XINT (*((Lisp_Object *)
(idx + (char *)&buffer_local_flags)));
if (mask > 0)
current_buffer->local_var_flags |= mask;
}
@ -945,7 +946,7 @@ default_value (sym)
{
register int idx = XUINT (valcontents);
if (*(int *) (idx + (char *) &buffer_local_flags) != 0)
if (XINT (*(Lisp_Object *) (idx + (char *) &buffer_local_flags)) != 0)
return *(Lisp_Object *)(idx + (char *) &buffer_defaults);
}
@ -1019,7 +1020,8 @@ for this variable.")
{
register int idx = XUINT (valcontents);
register struct buffer *b;
register int mask = *(int *) (idx + (char *) &buffer_local_flags);
register int mask = XINT (*((Lisp_Object *)
(idx + (char *)&buffer_local_flags)));
if (mask > 0)
{
@ -1211,7 +1213,8 @@ From now on the default value will apply in this buffer.")
if (BUFFER_OBJFWDP (valcontents))
{
register int idx = XUINT (valcontents);
register int mask = *(int *) (idx + (char *) &buffer_local_flags);
register int mask = XINT (*((Lisp_Object*)
(idx + (char *)&buffer_local_flags)));
if (mask > 0)
{