comparison src/data.c @ 16931:8bdfc6767130

(set_internal): New subroutine. New arg BINDFLAG. Don't make a new buffer-local binding if BINDFLAG is 0. (Fset): Use set_internal.

16930:e1aba4a05388

DEFUN ("set", Fset, Sset, 2, 2, 0,
  "Set SYMBOL's value to NEWVAL, and return NEWVAL.")
  (symbol, newval)
     register Lisp_Object symbol, newval;
{
  int voide = EQ (newval, Qunbound);

  register Lisp_Object valcontents, tem1, current_alist_element;

  CHECK_SYMBOL (symbol, 0);

	  if (NILP (tem1))
	    {
	      /* This buffer still sees the default value.  */

	      /* If the variable is a Lisp_Some_Buffer_Local_Value,
		 make CURRENT-ALIST-ELEMENT point to itself,
		 indicating that we're seeing the default value.  */
	      if (SOME_BUFFER_LOCAL_VALUEP (valcontents))
		tem1 = XCONS (XBUFFER_LOCAL_VALUE (valcontents)->cdr)->cdr;

	      /* If it's a Lisp_Buffer_Local_Value, give this buffer a
		 new assoc for a local value and set
		 CURRENT-ALIST-ELEMENT to point to that.  */
	      else
		{
		  tem1 = Fcons (symbol, Fcdr (current_alist_element));
		  current_buffer->local_var_alist =

16931:8bdfc6767130

DEFUN ("set", Fset, Sset, 2, 2, 0,
  "Set SYMBOL's value to NEWVAL, and return NEWVAL.")
  (symbol, newval)
     register Lisp_Object symbol, newval;
{
  return set_internal (symbol, newval, 0);
}

/* Stpre the value NEWVAL into SYMBOL.
   If BINDFLAG is zero, then if this symbol is supposed to become
   local in every buffer where it is set, then we make it local.
   If BINDFLAG is nonzero, we don't do that.  */

Lisp_Object
set_internal (symbol, newval, bindflag)
     register Lisp_Object symbol, newval;
     int bindflag;
{
  int voide = EQ (newval, Qunbound);

  register Lisp_Object valcontents, tem1, current_alist_element;

  CHECK_SYMBOL (symbol, 0);

	  if (NILP (tem1))
	    {
	      /* This buffer still sees the default value.  */

	      /* If the variable is a Lisp_Some_Buffer_Local_Value,
		 or if this is `let' rather than `set',
		 make CURRENT-ALIST-ELEMENT point to itself,
		 indicating that we're seeing the default value.  */
	      if (bindflag || SOME_BUFFER_LOCAL_VALUEP (valcontents))
		tem1 = XCONS (XBUFFER_LOCAL_VALUE (valcontents)->cdr)->cdr;

	      /* If it's a Lisp_Buffer_Local_Value, being set not bound,
		 give this buffer a new assoc for a local value and set
		 CURRENT-ALIST-ELEMENT to point to that.  */
	      else
		{
		  tem1 = Fcons (symbol, Fcdr (current_alist_element));
		  current_buffer->local_var_alist =