Mercurial > emacs
comparison src/buffer.c @ 9920:6cd89eaf36c9
(Fkill_all_local_variables): Use XBUFFER_LOCAL_VALUE, not XCONS.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 15 Nov 1994 00:06:33 +0000 |
parents | beb59716f299 |
children | f653d8aac66a |
comparison
equal
deleted
inserted
replaced
9919:08efed8251d6 | 9920:6cd89eaf36c9 |
---|---|
1271 for (alist = oalist; !NILP (alist); alist = XCONS (alist)->cdr) | 1271 for (alist = oalist; !NILP (alist); alist = XCONS (alist)->cdr) |
1272 { | 1272 { |
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 } |
1298 | 1299 |
1299 /* Actually eliminate all local bindings of this buffer. */ | 1300 /* Actually eliminate all local bindings of this buffer. */ |