From ab07bca08a65a489a7e4730f82f6873d50a57f4f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jan 1997 20:19:07 +0000 Subject: [PATCH] (unbind_to, specbind): Use set_internal. --- src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/eval.c b/src/eval.c index 97dbf8f1579..161861e41ed 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2648,7 +2648,7 @@ specbind (symbol, value) if (BUFFER_OBJFWDP (ovalue) || KBOARD_OBJFWDP (ovalue)) store_symval_forwarding (symbol, ovalue, value); else - Fset (symbol, value); + set_internal (symbol, value, 1); } void @@ -2686,7 +2686,7 @@ unbind_to (count, value) else if (NILP (specpdl_ptr->symbol)) Fprogn (specpdl_ptr->old_value); else - Fset (specpdl_ptr->symbol, specpdl_ptr->old_value); + set_internal (specpdl_ptr->symbol, specpdl_ptr->old_value, 1); } if (NILP (Vquit_flag) && quitf) Vquit_flag = Qt; -- 2.39.2