diff options
| author | Dmitry Antipov | 2012-08-17 18:24:43 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-17 18:24:43 +0400 |
| commit | a04e2c62ec8ce903310b7c7635c43f42ccab5e2f (patch) | |
| tree | 79da6e7e7455731a813eb601a158057c66bdcee6 /src/eval.c | |
| parent | 8223e9280fa69afeeae1a8b51735cbb8393f2e8d (diff) | |
| download | emacs-a04e2c62ec8ce903310b7c7635c43f42ccab5e2f.tar.gz emacs-a04e2c62ec8ce903310b7c7635c43f42ccab5e2f.zip | |
Functions to get and set Lisp_Object fields of buffer-local variables.
* lisp.h (blv_found, set_blv_found, blv_value, set_blv_value)
(set_blv_where, set_blv_defcell, set_blv_valcell): New functions.
(BLV_FOUND, SET_BLV_FOUND, BLV_VALUE, SET_BLV_VALUE): Remove.
* data.c, eval.c, frame.c: Adjust users.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index f3f14d60e1c..771cd7b160a 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -3169,12 +3169,12 @@ specbind (Lisp_Object symbol, Lisp_Object value) | |||
| 3169 | if (!NILP (Flocal_variable_p (symbol, Qnil))) | 3169 | if (!NILP (Flocal_variable_p (symbol, Qnil))) |
| 3170 | { | 3170 | { |
| 3171 | eassert (sym->redirect != SYMBOL_LOCALIZED | 3171 | eassert (sym->redirect != SYMBOL_LOCALIZED |
| 3172 | || (BLV_FOUND (SYMBOL_BLV (sym)) | 3172 | || (blv_found (SYMBOL_BLV (sym)) |
| 3173 | && EQ (cur_buf, SYMBOL_BLV (sym)->where))); | 3173 | && EQ (cur_buf, SYMBOL_BLV (sym)->where))); |
| 3174 | where = cur_buf; | 3174 | where = cur_buf; |
| 3175 | } | 3175 | } |
| 3176 | else if (sym->redirect == SYMBOL_LOCALIZED | 3176 | else if (sym->redirect == SYMBOL_LOCALIZED |
| 3177 | && BLV_FOUND (SYMBOL_BLV (sym))) | 3177 | && blv_found (SYMBOL_BLV (sym))) |
| 3178 | where = SYMBOL_BLV (sym)->where; | 3178 | where = SYMBOL_BLV (sym)->where; |
| 3179 | else | 3179 | else |
| 3180 | where = Qnil; | 3180 | where = Qnil; |