From 7fda123df164f113bc1ff1e686f660a69f4d5bad Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sun, 13 Sep 2009 21:18:03 +0200 Subject: [PATCH] Fix boundp and a bug in store_symval_forwarding. --- src/data.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/data.c b/src/data.c index 8d1ca2b4287..913cd0a98f4 100644 --- a/src/data.c +++ b/src/data.c @@ -582,12 +582,8 @@ DEFUN ("boundp", Fboundp, Sboundp, 1, 1, 0, register Lisp_Object symbol; { Lisp_Object valcontents; - CHECK_SYMBOL (symbol); - - valcontents = SYMBOL_VALUE (symbol); - if (BUFFER_LOCAL_VALUEP (valcontents)) - valcontents = swap_in_symval_forwarding (symbol, valcontents); + valcontents = find_symbol_value (symbol); return (EQ (valcontents, Qunbound) ? Qnil : Qt); } @@ -1078,7 +1074,7 @@ store_symval_forwarding (symbol, valcontents, newval, buf) if (BUFFER_LOCAL_VALUEP (valcontents)) XBUFFER_LOCAL_VALUE (valcontents)->realvalue = newval; else if (THREADLOCALP (valcontents)) - *find_variable_location (&XSYMBOL (symbol)->value) = newval; + *find_variable_location (&indirect_variable (XSYMBOL (symbol))->value) = newval; else SET_SYMBOL_VALUE (symbol, newval); } -- 2.11.4.GIT