# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 984649396 0
# Node ID d37840301629f10f96cb3d894b86feac0f01dae7
# Parent  f8cbdb29cbe62f645b01112aebf496d43266f701
(specbind): Call store_symval_forwarding with BUF null.

diff -r f8cbdb29cbe6 -r d37840301629 src/eval.c
--- a/src/eval.c	Thu Mar 15 09:42:53 2001 +0000
+++ b/src/eval.c	Thu Mar 15 09:43:16 2001 +0000
@@ -2950,7 +2950,7 @@
 
       specpdl_ptr++;
       if (BUFFER_OBJFWDP (ovalue) || KBOARD_OBJFWDP (ovalue))
-	store_symval_forwarding (symbol, ovalue, value);
+	store_symval_forwarding (symbol, ovalue, value, NULL);
       else
 	set_internal (symbol, value, 0, 1);
     }
@@ -2990,10 +2990,10 @@
 	 so in that case the "old value" is a list of forms to evaluate.  */
       else if (NILP (specpdl_ptr->symbol))
 	Fprogn (specpdl_ptr->old_value);
-      /* If the symbol is a list, it is really
-	 (SYMBOL BINDING_BUFFER . CURRENT_BUFFER)
-	 and it indicates we bound a variable that has
-	 buffer-local bindings.  */
+      /* If the symbol is a list, it is really (SYMBOL BINDING_BUFFER
+	 . CURRENT_BUFFER) and it indicates we bound a variable that
+	 has buffer-local bindings.  BINDING_BUFFER nil means that the
+	 variable had the default value when it was bound.  */
       else if (CONSP (specpdl_ptr->symbol))
 	{
 	  Lisp_Object symbol, buffer;