From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Jul 2002 10:17:26 +0000 (+0000)
Subject: (Fbuffer_local_value): Store current value into its binding
X-Git-Tag: ttn-vms-21-2-B4~14288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0bac7deee2f56ac02ff886dc5a1b7210e1fd089;p=emacs.git

(Fbuffer_local_value): Store current value into its binding
so we get the up-to-date value for the binding that is loaded.
---

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));