From f0bac7deee2f56ac02ff886dc5a1b7210e1fd089 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Jul 2002 10:17:26 +0000 Subject: [PATCH] (Fbuffer_local_value): Store current value into its binding so we get the up-to-date value for the binding that is loaded. --- src/buffer.c | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/buffer.c b/src/buffer.c index 65300cd9827..e371b3133ae 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -854,7 +854,26 @@ is the default binding of variable. */) result = Fdefault_value (symbol); } else - result = XCDR (result); + { + Lisp_Object valcontents; + Lisp_Object current_alist_element; + + /* What binding is loaded right now? */ + valcontents = SYMBOL_VALUE (symbol); + current_alist_element + = XCAR (XBUFFER_LOCAL_VALUE (valcontents)->cdr); + + /* The value of the currently loaded binding is not + stored in it, but rather in the realvalue slot. + Store that value into the binding it belongs to + in case that is the one we are about to use. */ + + Fsetcdr (current_alist_element, + do_symval_forwarding (XBUFFER_LOCAL_VALUE (valcontents)->realvalue)); + + /* Now get the (perhaps updated) value out of the binding. */ + result = XCDR (result); + } if (EQ (result, Qunbound)) return Fsignal (Qvoid_variable, Fcons (symbol, Qnil)); -- 2.39.5