Mercurial > emacs

diff src/eval.c @ 10604:c954d143db84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(specbind): Handle display-local vars. Move decl of store_symval_forwarding to lisp.h.
author Karl Heuer <kwzh@gnu.org>
date Tue, 31 Jan 1995 00:36:08 +0000
parents 9952a5ab70d1
children 433d4013f39b
line wrap: on
line diff
--- 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);