From 188572dc620d53be2240d591d501e9e381cb4643 Mon Sep 17 00:00:00 2001 From: Giuseppe Scrivano Date: Sun, 3 Jan 2010 23:40:23 +0100 Subject: [PATCH] Use the `realvalue' when the default binding is used. --- src/data.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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; } -- 2.11.4.GIT