diff options
author | Karl Heuer <[email protected]> | 1995-01-31 00:36:08 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-01-31 00:36:08 +0000 |
commit | 3826f22c3a74ad67c61225fe7163b3cb382df57a (patch) | |
tree | 7963b3888e3d75ab48a55784cb0407f30d436396 /src | |
parent | 7751ddd787b0aeebe4fb6290dcbec3dcfee4f933 (diff) |
(specbind): Handle display-local vars.
Move decl of store_symval_forwarding to lisp.h.
Diffstat (limited to 'src')
-rw-r--r-- | src/eval.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 6cbd5ab035..3d54058c04 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2278,7 +2278,6 @@ void specbind (symbol, value) Lisp_Object symbol, value; { - extern void store_symval_forwarding (); /* in eval.c */ Lisp_Object ovalue; CHECK_SYMBOL (symbol, 0); @@ -2289,7 +2288,7 @@ specbind (symbol, value) specpdl_ptr->func = 0; specpdl_ptr->old_value = ovalue = find_symbol_value (symbol); specpdl_ptr++; - if (BUFFER_OBJFWDP (ovalue)) + if (BUFFER_OBJFWDP (ovalue) || DISPLAY_OBJFWDP (ovalue)) store_symval_forwarding (symbol, ovalue, value); else Fset (symbol, value); |