aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorStefan Monnier2011-02-21 17:34:51 -0500
committerStefan Monnier2011-02-21 17:34:51 -0500
commitf619ad4ca2ce943d53589469c010e451afab97dd (patch)
treee1b71f79518372ecab4c677ae948504450d8bf5d /src/data.c
parenta647cb26b695a542e3a546104afdf4c7c47eb061 (diff)
parent9f8370e63f65f76887b319ab6a0368d4a332777c (diff)
downloademacs-f619ad4ca2ce943d53589469c010e451afab97dd.tar.gz
emacs-f619ad4ca2ce943d53589469c010e451afab97dd.zip
Merge from trunk
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c24
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)))