# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 947629015 0
# Node ID d0aba668c5af4a5219c116326d10a85e9ee06a8f
# Parent  224be87d0ad0fa3733b2b3f26f4066f952834cd9
(set_internal): Enter the new arg.

diff -r 224be87d0ad0 -r d0aba668c5af src/lisp.h
--- a/src/lisp.h	Tue Jan 11 22:12:07 2000 +0000
+++ b/src/lisp.h	Tue Jan 11 22:16:55 2000 +0000
@@ -1452,8 +1452,13 @@
    If func is zero and symbol is nil, undoing this binding evaluates
       the list of forms in old_value; this implements Lisp's unwind-protect
       form.
-   Otherwise, undoing this binding stores old_value as symbol's value; this
-      undoes the bindings made by a let form or function call.  */
+
+   Otherwise, the element is a variable binding.
+   If the symbol field is a symbol, it is an ordinary variable binding.
+   Otherwise, it should be a cons cell (SYMBOL . BUFFER)
+   which represents having bound BUFFER's local value.
+   or (SYMBOL . nil), which represents having bound the default value.  */
+
 struct specbinding
   {
     Lisp_Object symbol, old_value;
@@ -1831,7 +1836,7 @@
 extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object));
 extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object));
-extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, int));
+extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int));
 extern void syms_of_data P_ ((void));
 extern void init_data P_ ((void));