aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorDmitry Antipov2012-08-13 07:39:07 +0400
committerDmitry Antipov2012-08-13 07:39:07 +0400
commit4c31be6153255dfe29a0231253263ea0d9011ac3 (patch)
treecfd30617b9270436aad8cdf810a97721aaa20747 /src/data.c
parent1439443be63a2b0d796df8ebca882cdaecb7269f (diff)
downloademacs-4c31be6153255dfe29a0231253263ea0d9011ac3.tar.gz
emacs-4c31be6153255dfe29a0231253263ea0d9011ac3.zip
Use BSET for write access to Lisp_Object members of struct buffer.
* buffer.h (BSET): New macro. * buffer.c, casetab.c, cmds.c, coding.c, data.c, editfns.c: * fileio.c, frame.c, indent.c, insdel.c, intervals.c, keymap.c: * minibuf.c, print.c, process.c, syntax.c, undo.c, w32fns.c: * window.c, xdisp.c, xfns.c: Adjust users.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/data.c b/src/data.c
index c4519fc5e02..3e278e8bac3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1211,8 +1211,8 @@ set_internal (register Lisp_Object symbol, register Lisp_Object newval, register
1211 bindings, not for frame-local bindings. */ 1211 bindings, not for frame-local bindings. */
1212 eassert (!blv->frame_local); 1212 eassert (!blv->frame_local);
1213 tem1 = Fcons (symbol, XCDR (blv->defcell)); 1213 tem1 = Fcons (symbol, XCDR (blv->defcell));
1214 BVAR (XBUFFER (where), local_var_alist) 1214 BSET (XBUFFER (where), local_var_alist,
1215 = Fcons (tem1, BVAR (XBUFFER (where), local_var_alist)); 1215 Fcons (tem1, BVAR (XBUFFER (where), local_var_alist)));
1216 } 1216 }
1217 } 1217 }
1218 1218
@@ -1651,9 +1651,9 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */)
1651 default value. */ 1651 default value. */
1652 find_symbol_value (variable); 1652 find_symbol_value (variable);
1653 1653
1654 BVAR (current_buffer, local_var_alist) 1654 BSET (current_buffer, local_var_alist,
1655 = Fcons (Fcons (variable, XCDR (blv->defcell)), 1655 Fcons (Fcons (variable, XCDR (blv->defcell)),
1656 BVAR (current_buffer, local_var_alist)); 1656 BVAR (current_buffer, local_var_alist)));
1657 1657
1658 /* Make sure symbol does not think it is set up for this buffer; 1658 /* Make sure symbol does not think it is set up for this buffer;
1659 force it to look once again for this buffer's value. */ 1659 force it to look once again for this buffer's value. */
@@ -1721,8 +1721,8 @@ From now on the default value will apply in this buffer. Return VARIABLE. */)
1721 XSETSYMBOL (variable, sym); /* Propagate variable indirection. */ 1721 XSETSYMBOL (variable, sym); /* Propagate variable indirection. */
1722 tem = Fassq (variable, BVAR (current_buffer, local_var_alist)); 1722 tem = Fassq (variable, BVAR (current_buffer, local_var_alist));
1723 if (!NILP (tem)) 1723 if (!NILP (tem))
1724 BVAR (current_buffer, local_var_alist) 1724 BSET (current_buffer, local_var_alist,
1725 = Fdelq (tem, BVAR (current_buffer, local_var_alist)); 1725 Fdelq (tem, BVAR (current_buffer, local_var_alist)));
1726 1726
1727 /* If the symbol is set up with the current buffer's binding 1727 /* If the symbol is set up with the current buffer's binding
1728 loaded, recompute its value. We have to do it now, or else 1728 loaded, recompute its value. We have to do it now, or else