From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 31 Jan 1995 00:36:08 +0000 (+0000)
Subject: (specbind): Handle display-local vars.
X-Git-Tag: emacs-19.34~5254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3826f22c3a74ad67c61225fe7163b3cb382df57a;p=emacs.git

(specbind): Handle display-local vars.
Move decl of store_symval_forwarding to lisp.h.
---

diff --git a/src/eval.c b/src/eval.c
index 6cbd5ab0351..3d54058c04c 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);