From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Sun, 3 Jan 2010 22:40:23 +0000 (+0100)
Subject: Use the `realvalue' when the default binding is used.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=188572dc620d53be2240d591d501e9e381cb4643;p=emacs.git

Use the `realvalue' when the default binding is used.
---

diff --git a/src/data.c b/src/data.c
index a5a317c3d2e..50b5c5d2679 100644
--- a/src/data.c
+++ b/src/data.c
@@ -828,8 +828,15 @@ blocal_get_thread_data (struct Lisp_Buffer_Local_Value *l)
               && (! l->check_frame
                   || EQ (selected_frame, BLOCAL_FRAME_VEC (head))))
             {
-              val = XCDR (BLOCAL_CDR_VEC (head));
+              Lisp_Object v = BLOCAL_CDR_VEC (head);
               parent = head;
+
+              if (!EQ (v, XCAR (v)))
+                val = XCDR (assq_no_quit (XCAR (XCAR (it)),
+                                   XTHREADLOCAL (l->realvalue)->thread_alist));
+              else
+                val = XCDR (BLOCAL_CDR_VEC (head));
+
               break;
             }