diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 4559a0e1f66..78a787c4ffd 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -3816,7 +3816,7 @@ backtrace_eval_unrewind (int distance) | |||
| 3816 | { | 3816 | { |
| 3817 | Lisp_Object sym = specpdl_symbol (tmp); | 3817 | Lisp_Object sym = specpdl_symbol (tmp); |
| 3818 | Lisp_Object old_value = specpdl_old_value (tmp); | 3818 | Lisp_Object old_value = specpdl_old_value (tmp); |
| 3819 | set_specpdl_old_value (tmp, Fdefault_value (sym)); | 3819 | set_specpdl_old_value (tmp, default_value (sym)); |
| 3820 | Fset_default (sym, old_value); | 3820 | Fset_default (sym, old_value); |
| 3821 | } | 3821 | } |
| 3822 | break; | 3822 | break; |
| @@ -3832,7 +3832,7 @@ backtrace_eval_unrewind (int distance) | |||
| 3832 | if (!NILP (Flocal_variable_p (symbol, where))) | 3832 | if (!NILP (Flocal_variable_p (symbol, where))) |
| 3833 | { | 3833 | { |
| 3834 | set_specpdl_old_value | 3834 | set_specpdl_old_value |
| 3835 | (tmp, Fbuffer_local_value (symbol, where)); | 3835 | (tmp, buffer_local_value (symbol, where)); |
| 3836 | set_internal (symbol, old_value, where, SET_INTERNAL_UNBIND); | 3836 | set_internal (symbol, old_value, where, SET_INTERNAL_UNBIND); |
| 3837 | } | 3837 | } |
| 3838 | } | 3838 | } |