diff options
| author | Dmitry Antipov | 2012-08-13 07:39:07 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-13 07:39:07 +0400 |
| commit | 4c31be6153255dfe29a0231253263ea0d9011ac3 (patch) | |
| tree | cfd30617b9270436aad8cdf810a97721aaa20747 /src/data.c | |
| parent | 1439443be63a2b0d796df8ebca882cdaecb7269f (diff) | |
| download | emacs-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.c | 14 |
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 |