From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Fri, 1 Jan 2010 13:08:47 +0000 (+0100)
Subject: Use the global value as initial realvalue.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f0679df81ba14332bd0fc2814d40ada16d59aac;p=emacs.git

Use the global value as initial realvalue.
---

diff --git a/src/data.c b/src/data.c
index c519ef91e25..d1c6c421871 100644
--- a/src/data.c
+++ b/src/data.c
@@ -114,7 +114,7 @@ blocal_get_thread_data (struct Lisp_Buffer_Local_Value *l)
       l->thread_data = Fcons (ret, l->thread_data);
       XTHREADLOCAL (l->realvalue)->thread_alist =
         Fcons (Fcons (get_current_thread (),
-                      XCDR (XCAR (XTHREADLOCAL (l->realvalue)->thread_alist))),
+                      XTHREADLOCAL (l->realvalue)->global),
                XTHREADLOCAL (l->realvalue)->thread_alist);
     }
 
@@ -1644,8 +1644,7 @@ The function `default-value' gets the default value and `set-default' sets it.
       XBUFFER_LOCAL_VALUE (newval)->realvalue = allocate_misc ();
       XMISCTYPE (XBUFFER_LOCAL_VALUE (newval)->realvalue)
         = Lisp_Misc_ThreadLocal;
-      XTHREADLOCAL (XBUFFER_LOCAL_VALUE (newval)->realvalue)->global
-        = Fsymbol_value (variable);
+      XTHREADLOCAL (XBUFFER_LOCAL_VALUE (newval)->realvalue)->global = Qnil;
       XTHREADLOCAL (XBUFFER_LOCAL_VALUE (newval)->realvalue)->thread_alist
         = Fcons (Fcons (get_current_thread (), Qnil), Qnil);
       BLOCAL_REALVALUE (XBUFFER_LOCAL_VALUE (newval)) = sym->value;