From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 23 Jan 1996 18:06:54 +0000 (+0000)
Subject: (kill-local-variable): didn't update the value of
X-Git-Tag: emacs-19.34~1596
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79c83e032911b95090408a38d7c4d96ddb4e4661;p=emacs.git

(kill-local-variable): didn't update the value of
forwarded objects.
---

diff --git a/src/data.c b/src/data.c
index 263a21bebc1..8b9a158ef27 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1362,14 +1362,18 @@ From now on the default value will apply in this buffer.")
     current_buffer->local_var_alist
       = Fdelq (tem, current_buffer->local_var_alist);
 
-  /* Make sure symbol does not think it is set up for this buffer;
-     force it to look once again for this buffer's value */
+  /* If the symbol is set up for the current buffer, recompute its
+     value.  We have to do it now, or else forwarded objects won't
+     work right. */
   {
     Lisp_Object *pvalbuf;
     valcontents = XSYMBOL (variable)->value;
     pvalbuf = &XCONS (XBUFFER_LOCAL_VALUE (valcontents)->cdr)->car;
     if (current_buffer == XBUFFER (*pvalbuf))
-      *pvalbuf = Qnil;
+      {
+	*pvalbuf = Qnil;
+	Fsymbol_value(variable);
+      }
   }
 
   return variable;