From 136eb6ed3f689a6348e5e1c23beef2563d70d6f1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 19 Nov 2007 07:42:25 +0000 Subject: * data.c (store_symval_forwarding, set_internal): * eval.c (specbind): Remove dead code. --- src/data.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/data.c') diff --git a/src/data.c b/src/data.c index 070d5a0c7ce..2ee84f01a14 100644 --- a/src/data.c +++ b/src/data.c @@ -922,9 +922,11 @@ store_symval_forwarding (symbol, valcontents, newval, buf) case Lisp_Misc_Intfwd: CHECK_NUMBER (newval); *XINTFWD (valcontents)->intvar = XINT (newval); - if (*XINTFWD (valcontents)->intvar != XINT (newval)) - error ("Value out of range for variable `%s'", - SDATA (SYMBOL_NAME (symbol))); + /* This can never happen since intvar points to an EMACS_INT + which is at least large enough to hold a Lisp_Object. + if (*XINTFWD (valcontents)->intvar != XINT (newval)) + error ("Value out of range for variable `%s'", + SDATA (SYMBOL_NAME (symbol))); */ break; case Lisp_Misc_Boolfwd: @@ -1237,9 +1239,8 @@ set_internal (symbol, newval, buf, bindflag) || buf != XBUFFER (XBUFFER_LOCAL_VALUE (valcontents)->buffer) || (XBUFFER_LOCAL_VALUE (valcontents)->check_frame && !EQ (selected_frame, XBUFFER_LOCAL_VALUE (valcontents)->frame)) - || (BUFFER_LOCAL_VALUEP (valcontents) - && EQ (XCAR (current_alist_element), - current_alist_element))) + || (EQ (XCAR (current_alist_element), + current_alist_element))) { /* The currently loaded binding is not necessarily valid. We need to unload it, and choose a new binding. */ -- cgit v1.2.1