procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove binding_symbol

Browse source
This commit is contained in:
Tom Tromey 2013-08-27 12:54:38 -06:00
parent c44fedc603
commit 07efb14034
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/eval.c
View file

@ -3171,14 +3171,6 @@ let_shadows_global_binding_p (Lisp_Object symbol)
return 0;
}
static Lisp_Object
binding_symbol (union specbinding *bind)
{
if (!CONSP (specpdl_symbol (bind)))
return specpdl_symbol (bind);
return XCAR (specpdl_symbol (bind));
}
void
do_specbind (struct Lisp_Symbol *sym, union specbinding *bind,
Lisp_Object value)
@ -3209,7 +3201,7 @@ do_specbind (struct Lisp_Symbol *sym, union specbinding *bind,
}
}
set_internal (binding_symbol (bind), value, Qnil, 1);
set_internal (specpdl_symbol (bind), value, Qnil, 1);
break;
default:
@ -3350,7 +3342,7 @@ rebind_for_thread_switch (void)
Lisp_Object value = specpdl_saved_value (bind);
bind->let.saved_value = Qnil;
do_specbind (XSYMBOL (binding_symbol (bind)), bind, value);
do_specbind (XSYMBOL (specpdl_symbol (bind)), bind, value);
}
}
}
@ -3500,7 +3492,7 @@ unbind_for_thread_switch (void)
{
if (bind->kind >= SPECPDL_LET)
{
bind->let.saved_value = find_symbol_value (binding_symbol (bind));
bind->let.saved_value = find_symbol_value (specpdl_symbol (bind));
do_one_unbind (bind, 0);
}
}