diff options
| author | Karl Heuer | 1994-11-15 00:06:33 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-11-15 00:06:33 +0000 |
| commit | 6746ed7a3362b1ef0283cd0d922058cb86cbb5a0 (patch) | |
| tree | 085f875348fd745a1d4f1513a652f5ac0aacb650 /src | |
| parent | 9dbfa8cfbbbd857bf388582b5d5c66f9f9d0331d (diff) | |
| download | emacs-6746ed7a3362b1ef0283cd0d922058cb86cbb5a0.tar.gz emacs-6746ed7a3362b1ef0283cd0d922058cb86cbb5a0.zip | |
(Fkill_all_local_variables): Use XBUFFER_LOCAL_VALUE, not XCONS.
Diffstat (limited to 'src')
| -rw-r--r-- | src/buffer.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/buffer.c b/src/buffer.c index 1b4a885f5e5..98885cc535a 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -1273,25 +1273,26 @@ the normal hook `change-major-mode-hook'.") | |||
| 1273 | sym = XCONS (XCONS (alist)->car)->car; | 1273 | sym = XCONS (XCONS (alist)->car)->car; |
| 1274 | 1274 | ||
| 1275 | /* Need not do anything if some other buffer's binding is now encached. */ | 1275 | /* Need not do anything if some other buffer's binding is now encached. */ |
| 1276 | tem = XCONS (XCONS (XSYMBOL (sym)->value)->cdr)->car; | 1276 | tem = XCONS (XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->cdr)->car; |
| 1277 | if (XBUFFER (tem) == current_buffer) | 1277 | if (XBUFFER (tem) == current_buffer) |
| 1278 | { | 1278 | { |
| 1279 | /* Symbol is set up for this buffer's old local value. | 1279 | /* Symbol is set up for this buffer's old local value. |
| 1280 | Set it up for the current buffer with the default value. */ | 1280 | Set it up for the current buffer with the default value. */ |
| 1281 | 1281 | ||
| 1282 | tem = XCONS (XCONS (XSYMBOL (sym)->value)->cdr)->cdr; | 1282 | tem = XCONS (XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->cdr)->cdr; |
| 1283 | /* Store the symbol's current value into the alist entry | 1283 | /* Store the symbol's current value into the alist entry |
| 1284 | it is currently set up for. This is so that, if the | 1284 | it is currently set up for. This is so that, if the |
| 1285 | local is marked permanent, and we make it local again below, | 1285 | local is marked permanent, and we make it local again below, |
| 1286 | we don't lose the value. */ | 1286 | we don't lose the value. */ |
| 1287 | XCONS (XCONS (tem)->car)->cdr | 1287 | XCONS (XCONS (tem)->car)->cdr |
| 1288 | = do_symval_forwarding (XCONS (XSYMBOL (sym)->value)->car); | 1288 | = do_symval_forwarding (XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->car); |
| 1289 | /* Switch to the symbol's default-value alist entry. */ | 1289 | /* Switch to the symbol's default-value alist entry. */ |
| 1290 | XCONS (tem)->car = tem; | 1290 | XCONS (tem)->car = tem; |
| 1291 | /* Mark it as current for the current buffer. */ | 1291 | /* Mark it as current for the current buffer. */ |
| 1292 | XCONS (XCONS (XSYMBOL (sym)->value)->cdr)->car = Fcurrent_buffer (); | 1292 | XCONS (XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->cdr)->car |
| 1293 | = Fcurrent_buffer (); | ||
| 1293 | /* Store the current value into any forwarding in the symbol. */ | 1294 | /* Store the current value into any forwarding in the symbol. */ |
| 1294 | store_symval_forwarding (sym, XCONS (XSYMBOL (sym)->value)->car, | 1295 | store_symval_forwarding (sym, XBUFFER_LOCAL_VALUE (XSYMBOL (sym)->value)->car, |
| 1295 | XCONS (tem)->cdr); | 1296 | XCONS (tem)->cdr); |
| 1296 | } | 1297 | } |
| 1297 | } | 1298 | } |