From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jan 1997 20:19:07 +0000 (+0000)
Subject: (unbind_to, specbind): Use set_internal.
X-Git-Tag: emacs-20.1~3014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab07bca08a65a489a7e4730f82f6873d50a57f4f;p=emacs.git

(unbind_to, specbind): Use set_internal.
---

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;