From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 15 Mar 2001 09:43:16 +0000 (+0000)
Subject: (specbind): Call store_symval_forwarding with BUF null.
X-Git-Tag: emacs-pretest-21.0.101~308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eae0e1234a1b8982cddb24935d87f235a67553b5;p=emacs.git

(specbind): Call store_symval_forwarding with BUF null.
---

diff --git a/src/eval.c b/src/eval.c
index 7ba6c3cdcde..439d7c5ccc2 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2950,7 +2950,7 @@ specbind (symbol, value)
 
       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 @@ unbind_to (count, value)
 	 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;