# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791512568 0
# Node ID c954d143db8404eec1ad4b93531bd10afd1f2dab
# Parent  f33806464315066bc42d457c4ef30d9d416371c0
(specbind): Handle display-local vars.
Move decl of store_symval_forwarding to lisp.h.

diff -r f33806464315 -r c954d143db84 src/eval.c
--- a/src/eval.c	Tue Jan 31 00:35:14 1995 +0000
+++ b/src/eval.c	Tue Jan 31 00:36:08 1995 +0000
@@ -2278,7 +2278,6 @@
 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 @@
   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);