From 79c83e032911b95090408a38d7c4d96ddb4e4661 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 23 Jan 1996 18:06:54 +0000 Subject: (kill-local-variable): didn't update the value of forwarded objects. --- src/data.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/data.c') diff --git a/src/data.c b/src/data.c index 263a21bebc..8b9a158ef2 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; -- cgit v1.2.3