diff options
| author | Stefan Monnier | 2011-02-21 17:34:51 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2011-02-21 17:34:51 -0500 |
| commit | f619ad4ca2ce943d53589469c010e451afab97dd (patch) | |
| tree | e1b71f79518372ecab4c677ae948504450d8bf5d /src/data.c | |
| parent | a647cb26b695a542e3a546104afdf4c7c47eb061 (diff) | |
| parent | 9f8370e63f65f76887b319ab6a0368d4a332777c (diff) | |
| download | emacs-f619ad4ca2ce943d53589469c010e451afab97dd.tar.gz emacs-f619ad4ca2ce943d53589469c010e451afab97dd.zip | |
Merge from trunk
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 2f17edd3fdc..ecedba24101 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1021,7 +1021,7 @@ swap_in_symval_forwarding (struct Lisp_Symbol *symbol, struct Lisp_Buffer_Local_ | |||
| 1021 | } | 1021 | } |
| 1022 | else | 1022 | else |
| 1023 | { | 1023 | { |
| 1024 | tem1 = assq_no_quit (var, current_buffer->local_var_alist); | 1024 | tem1 = assq_no_quit (var, BVAR (current_buffer, local_var_alist)); |
| 1025 | XSETBUFFER (blv->where, current_buffer); | 1025 | XSETBUFFER (blv->where, current_buffer); |
| 1026 | } | 1026 | } |
| 1027 | } | 1027 | } |
| @@ -1190,7 +1190,7 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register | |||
| 1190 | tem1 = Fassq (symbol, | 1190 | tem1 = Fassq (symbol, |
| 1191 | (blv->frame_local | 1191 | (blv->frame_local |
| 1192 | ? XFRAME (where)->param_alist | 1192 | ? XFRAME (where)->param_alist |
| 1193 | : XBUFFER (where)->local_var_alist)); | 1193 | : BVAR (XBUFFER (where), local_var_alist))); |
| 1194 | blv->where = where; | 1194 | blv->where = where; |
| 1195 | blv->found = 1; | 1195 | blv->found = 1; |
| 1196 | 1196 | ||
| @@ -1221,8 +1221,8 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register | |||
| 1221 | bindings, not for frame-local bindings. */ | 1221 | bindings, not for frame-local bindings. */ |
| 1222 | eassert (!blv->frame_local); | 1222 | eassert (!blv->frame_local); |
| 1223 | tem1 = Fcons (symbol, XCDR (blv->defcell)); | 1223 | tem1 = Fcons (symbol, XCDR (blv->defcell)); |
| 1224 | XBUFFER (where)->local_var_alist | 1224 | BVAR (XBUFFER (where), local_var_alist) |
| 1225 | = Fcons (tem1, XBUFFER (where)->local_var_alist); | 1225 | = Fcons (tem1, BVAR (XBUFFER (where), local_var_alist)); |
| 1226 | } | 1226 | } |
| 1227 | } | 1227 | } |
| 1228 | 1228 | ||
| @@ -1644,13 +1644,13 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) | |||
| 1644 | if (let_shadows_global_binding_p (symbol)) | 1644 | if (let_shadows_global_binding_p (symbol)) |
| 1645 | message ("Making %s local to %s while let-bound!", | 1645 | message ("Making %s local to %s while let-bound!", |
| 1646 | SDATA (SYMBOL_NAME (variable)), | 1646 | SDATA (SYMBOL_NAME (variable)), |
| 1647 | SDATA (current_buffer->name)); | 1647 | SDATA (BVAR (current_buffer, name))); |
| 1648 | } | 1648 | } |
| 1649 | } | 1649 | } |
| 1650 | 1650 | ||
| 1651 | /* Make sure this buffer has its own value of symbol. */ | 1651 | /* Make sure this buffer has its own value of symbol. */ |
| 1652 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ | 1652 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ |
| 1653 | tem = Fassq (variable, current_buffer->local_var_alist); | 1653 | tem = Fassq (variable, BVAR (current_buffer, local_var_alist)); |
| 1654 | if (NILP (tem)) | 1654 | if (NILP (tem)) |
| 1655 | { | 1655 | { |
| 1656 | if (let_shadows_buffer_binding_p (sym)) | 1656 | if (let_shadows_buffer_binding_p (sym)) |
| @@ -1662,9 +1662,9 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) | |||
| 1662 | default value. */ | 1662 | default value. */ |
| 1663 | find_symbol_value (variable); | 1663 | find_symbol_value (variable); |
| 1664 | 1664 | ||
| 1665 | current_buffer->local_var_alist | 1665 | BVAR (current_buffer, local_var_alist) |
| 1666 | = Fcons (Fcons (variable, XCDR (blv->defcell)), | 1666 | = Fcons (Fcons (variable, XCDR (blv->defcell)), |
| 1667 | current_buffer->local_var_alist); | 1667 | BVAR (current_buffer, local_var_alist)); |
| 1668 | 1668 | ||
| 1669 | /* Make sure symbol does not think it is set up for this buffer; | 1669 | /* Make sure symbol does not think it is set up for this buffer; |
| 1670 | force it to look once again for this buffer's value. */ | 1670 | force it to look once again for this buffer's value. */ |
| @@ -1730,10 +1730,10 @@ From now on the default value will apply in this buffer. Return VARIABLE. */) | |||
| 1730 | 1730 | ||
| 1731 | /* Get rid of this buffer's alist element, if any. */ | 1731 | /* Get rid of this buffer's alist element, if any. */ |
| 1732 | XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ | 1732 | XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ |
| 1733 | tem = Fassq (variable, current_buffer->local_var_alist); | 1733 | tem = Fassq (variable, BVAR (current_buffer, local_var_alist)); |
| 1734 | if (!NILP (tem)) | 1734 | if (!NILP (tem)) |
| 1735 | current_buffer->local_var_alist | 1735 | BVAR (current_buffer, local_var_alist) |
| 1736 | = Fdelq (tem, current_buffer->local_var_alist); | 1736 | = Fdelq (tem, BVAR (current_buffer, local_var_alist)); |
| 1737 | 1737 | ||
| 1738 | /* If the symbol is set up with the current buffer's binding | 1738 | /* If the symbol is set up with the current buffer's binding |
| 1739 | loaded, recompute its value. We have to do it now, or else | 1739 | loaded, recompute its value. We have to do it now, or else |
| @@ -1860,7 +1860,7 @@ BUFFER defaults to the current buffer. */) | |||
| 1860 | XSETBUFFER (tmp, buf); | 1860 | XSETBUFFER (tmp, buf); |
| 1861 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ | 1861 | XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ |
| 1862 | 1862 | ||
| 1863 | for (tail = buf->local_var_alist; CONSP (tail); tail = XCDR (tail)) | 1863 | for (tail = BVAR (buf, local_var_alist); CONSP (tail); tail = XCDR (tail)) |
| 1864 | { | 1864 | { |
| 1865 | elt = XCAR (tail); | 1865 | elt = XCAR (tail); |
| 1866 | if (EQ (variable, XCAR (elt))) | 1866 | if (EQ (variable, XCAR (elt))) |