aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer <[email protected]>1995-01-31 00:36:08 +0000
committerKarl Heuer <[email protected]>1995-01-31 00:36:08 +0000
commit3826f22c3a74ad67c61225fe7163b3cb382df57a (patch)
tree7963b3888e3d75ab48a55784cb0407f30d436396 /src
parent7751ddd787b0aeebe4fb6290dcbec3dcfee4f933 (diff)
(specbind): Handle display-local vars.
Move decl of store_symval_forwarding to lisp.h.
Diffstat (limited to 'src')
-rw-r--r--src/eval.c3
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);