diff options
| author | Tom Tromey <tromey@redhat.com> | 2013-08-27 12:54:38 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2013-08-27 12:54:38 -0600 |
| commit | 07efb140348b4a4015c69ed102a5fa216978506f (patch) | |
| tree | 01d2671a02f9bf86b618dd0190d6229525fe82cd | |
| parent | c44fedc6039bd96e908f5df25c5816abf7fc87e7 (diff) | |
| download | emacs-07efb140348b4a4015c69ed102a5fa216978506f.tar.gz | |
remove binding_symbol
| -rw-r--r-- | src/eval.c | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/src/eval.c b/src/eval.c index d36defc8fe4..68a3691ad9b 100644 --- a/src/eval.c +++ b/src/eval.c @@ -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); } } |