diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/data.c b/src/data.c index 6cd3649d45f..ea511824e6d 100644 --- a/src/data.c +++ b/src/data.c @@ -1213,8 +1213,9 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register bindings, not for frame-local bindings. */ eassert (!blv->frame_local); tem1 = Fcons (symbol, XCDR (blv->defcell)); - BSET (XBUFFER (where), local_var_alist, - Fcons (tem1, BVAR (XBUFFER (where), local_var_alist))); + bset_local_var_alist + (XBUFFER (where), + Fcons (tem1, BVAR (XBUFFER (where), local_var_alist))); } } @@ -1653,9 +1654,10 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) default value. */ find_symbol_value (variable); - BSET (current_buffer, local_var_alist, - Fcons (Fcons (variable, XCDR (blv->defcell)), - BVAR (current_buffer, local_var_alist))); + bset_local_var_alist + (current_buffer, + Fcons (Fcons (variable, XCDR (blv->defcell)), + BVAR (current_buffer, local_var_alist))); /* Make sure symbol does not think it is set up for this buffer; force it to look once again for this buffer's value. */ @@ -1721,8 +1723,9 @@ From now on the default value will apply in this buffer. Return VARIABLE. */) XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ tem = Fassq (variable, BVAR (current_buffer, local_var_alist)); if (!NILP (tem)) - BSET (current_buffer, local_var_alist, - Fdelq (tem, BVAR (current_buffer, local_var_alist))); + bset_local_var_alist + (current_buffer, + Fdelq (tem, BVAR (current_buffer, local_var_alist))); /* If the symbol is set up with the current buffer's binding loaded, recompute its value. We have to do it now, or else |