comparison src/eval.c @ 36817:d37840301629

(specbind): Call store_symval_forwarding with BUF null.

36816:f8cbdb29cbe6

      else
	specpdl_ptr->symbol = symbol;

      specpdl_ptr++;
      if (BUFFER_OBJFWDP (ovalue) || KBOARD_OBJFWDP (ovalue))
	store_symval_forwarding (symbol, ovalue, value);
      else
	set_internal (symbol, value, 0, 1);
    }
}

	(*specpdl_ptr->func) (specpdl_ptr->old_value);
      /* Note that a "binding" of nil is really an unwind protect,
	 so in that case the "old value" is a list of forms to evaluate.  */
      else if (NILP (specpdl_ptr->symbol))
	Fprogn (specpdl_ptr->old_value);
      /* If the symbol is a list, it is really
	 (SYMBOL BINDING_BUFFER . CURRENT_BUFFER)
	 and it indicates we bound a variable that has
	 buffer-local bindings.  */
      else if (CONSP (specpdl_ptr->symbol))
	{
	  Lisp_Object symbol, buffer;

	  symbol = XCAR (specpdl_ptr->symbol);

36817:d37840301629

      else
	specpdl_ptr->symbol = symbol;

      specpdl_ptr++;
      if (BUFFER_OBJFWDP (ovalue) || KBOARD_OBJFWDP (ovalue))
	store_symval_forwarding (symbol, ovalue, value, NULL);
      else
	set_internal (symbol, value, 0, 1);
    }
}

	(*specpdl_ptr->func) (specpdl_ptr->old_value);
      /* Note that a "binding" of nil is really an unwind protect,
	 so in that case the "old value" is a list of forms to evaluate.  */
      else if (NILP (specpdl_ptr->symbol))
	Fprogn (specpdl_ptr->old_value);
      /* If the symbol is a list, it is really (SYMBOL BINDING_BUFFER
	 . CURRENT_BUFFER) and it indicates we bound a variable that
	 has buffer-local bindings.  BINDING_BUFFER nil means that the
	 variable had the default value when it was bound.  */
      else if (CONSP (specpdl_ptr->symbol))
	{
	  Lisp_Object symbol, buffer;

	  symbol = XCAR (specpdl_ptr->symbol);