diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/data.c b/src/data.c index 77cdbabb2d5..c0557d5c735 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1009,7 +1009,7 @@ swap_in_symval_forwarding (struct Lisp_Symbol *symbol, struct Lisp_Buffer_Local_ | |||
| 1009 | } | 1009 | } |
| 1010 | else | 1010 | else |
| 1011 | { | 1011 | { |
| 1012 | tem1 = assq_no_quit (var, current_buffer->local_var_alist); | 1012 | tem1 = assq_no_quit (var, B_ (current_buffer, local_var_alist)); |
| 1013 | XSETBUFFER (blv->where, current_buffer); | 1013 | XSETBUFFER (blv->where, current_buffer); |
| 1014 | } | 1014 | } |
| 1015 | } | 1015 | } |
| @@ -1178,7 +1178,7 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register | |||
| 1178 | tem1 = Fassq (symbol, | 1178 | tem1 = Fassq (symbol, |
| 1179 | (blv->frame_local | 1179 | (blv->frame_local |
| 1180 | ? XFRAME (where)->param_alist | 1180 | ? XFRAME (where)->param_alist |
| 1181 | : XBUFFER (where)->local_var_alist)); | 1181 | : B_ (XBUFFER (where), local_var_alist))); |
| 1182 | blv->where = where; | 1182 | blv->where = where; |
| 1183 | blv->found = 1; | 1183 | blv->found = 1; |
| 1184 | 1184 | ||
| @@ -1209,8 +1209,8 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register | |||
| 1209 | bindings, not for frame-local bindings. */ | 1209 | bindings, not for frame-local bindings. */ |
| 1210 | eassert (!blv->frame_local); | 1210 | eassert (!blv->frame_local); |
| 1211 | tem1 = Fcons (symbol, XCDR (blv->defcell)); | 1211 | tem1 = Fcons (symbol, XCDR (blv->defcell)); |
| 1212 | XBUFFER (where)->local_var_alist | 1212 | B_ (XBUFFER (where), local_var_alist) |
| 1213 | = Fcons (tem1, XBUFFER (where)->local_var_alist); | 1213 | = Fcons (tem1, B_ (XBUFFER (where), local_var_alist)); |
| 1214 | } | 1214 | } |
| 1215 | } | 1215 | } |
| 1216 | 1216 | ||
| @@ -1632,13 +1632,13 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) | |||
| 1632 | if (let_shadows_global_binding_p (symbol)) | 1632 | if (let_shadows_global_binding_p (symbol)) |
| 1633 | message ("Making %s local to %s while let-bound!", | 1633 | message ("Making %s local to %s while let-bound!", |
| 1634 | SDATA (SYMBOL_NAME (variable)), | 1634 | SDATA (SYMBOL_NAME (variable)), |
| 1635 | SDATA (current_buffer->name)); | 1635 | SDATA (B_ (current_buffer, name))); |
| 1636 | } | 1636 | } |
| 1637 | } | 1637 | } |
| 1638 | 1638 | ||
| 1639 | /* Make sure this buffer has its own value of symbol. */ | 1639 | /* Make sure this buffer has its own value of symbol. */ |
| 1640 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ | 1640 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ |
| 1641 | tem = Fassq (variable, current_buffer->local_var_alist); | 1641 | tem = Fassq (variable, B_ (current_buffer, local_var_alist)); |
| 1642 | if (NILP (tem)) | 1642 | if (NILP (tem)) |
| 1643 | { | 1643 | { |
| 1644 | if (let_shadows_buffer_binding_p (sym)) | 1644 | if (let_shadows_buffer_binding_p (sym)) |
| @@ -1650,9 +1650,9 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) | |||
| 1650 | default value. */ | 1650 | default value. */ |
| 1651 | find_symbol_value (variable); | 1651 | find_symbol_value (variable); |
| 1652 | 1652 | ||
| 1653 | current_buffer->local_var_alist | 1653 | B_ (current_buffer, local_var_alist) |
| 1654 | = Fcons (Fcons (variable, XCDR (blv->defcell)), | 1654 | = Fcons (Fcons (variable, XCDR (blv->defcell)), |
| 1655 | current_buffer->local_var_alist); | 1655 | B_ (current_buffer, local_var_alist)); |
| 1656 | 1656 | ||
| 1657 | /* Make sure symbol does not think it is set up for this buffer; | 1657 | /* Make sure symbol does not think it is set up for this buffer; |
| 1658 | force it to look once again for this buffer's value. */ | 1658 | force it to look once again for this buffer's value. */ |
| @@ -1718,10 +1718,10 @@ From now on the default value will apply in this buffer. Return VARIABLE. */) | |||
| 1718 | 1718 | ||
| 1719 | /* Get rid of this buffer's alist element, if any. */ | 1719 | /* Get rid of this buffer's alist element, if any. */ |
| 1720 | XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ | 1720 | XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ |
| 1721 | tem = Fassq (variable, current_buffer->local_var_alist); | 1721 | tem = Fassq (variable, B_ (current_buffer, local_var_alist)); |
| 1722 | if (!NILP (tem)) | 1722 | if (!NILP (tem)) |
| 1723 | current_buffer->local_var_alist | 1723 | B_ (current_buffer, local_var_alist) |
| 1724 | = Fdelq (tem, current_buffer->local_var_alist); | 1724 | = Fdelq (tem, B_ (current_buffer, local_var_alist)); |
| 1725 | 1725 | ||
| 1726 | /* If the symbol is set up with the current buffer's binding | 1726 | /* If the symbol is set up with the current buffer's binding |
| 1727 | loaded, recompute its value. We have to do it now, or else | 1727 | loaded, recompute its value. We have to do it now, or else |
| @@ -1848,7 +1848,7 @@ BUFFER defaults to the current buffer. */) | |||
| 1848 | XSETBUFFER (tmp, buf); | 1848 | XSETBUFFER (tmp, buf); |
| 1849 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ | 1849 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ |
| 1850 | 1850 | ||
| 1851 | for (tail = buf->local_var_alist; CONSP (tail); tail = XCDR (tail)) | 1851 | for (tail = B_ (buf, local_var_alist); CONSP (tail); tail = XCDR (tail)) |
| 1852 | { | 1852 | { |
| 1853 | elt = XCAR (tail); | 1853 | elt = XCAR (tail); |
| 1854 | if (EQ (variable, XCAR (elt))) | 1854 | if (EQ (variable, XCAR (elt))) |