comparison src/buffer.c @ 1909:ea6c75bc0d38

* buffer.c (Fswitch_to_buffer): Pass the correct number of arguments to Fnext_window. * buffer.c (Fbury_buffer): Pass the correct number of arguments to Fother_buffer. * buffer.c (buffer_slot_type_mismatch): Make symbol_name an unsigned char *, to match the type of a string's data.

1908:d649f2179d67

  Fset_buffer (buf);
  if (NILP (norecord))
    record_buffer (buf);

  Fset_window_buffer (EQ (selected_window, minibuf_window)
		      ? Fnext_window (minibuf_window, Qnil) : selected_window,
		      buf);

  return Qnil;
}

  if (NILP (buf))
    {
      XSET (buf, Lisp_Buffer, current_buffer);

      /* If we're burying the current buffer, unshow it.  */
      Fswitch_to_buffer (Fother_buffer (buf), Qnil);
    }
  else
    {
      Lisp_Object buf1;
      

void
buffer_slot_type_mismatch (valcontents, newval)
     Lisp_Object valcontents, newval;
{
  unsigned int offset = XUINT (valcontents);
  char *symbol_name =
    (XSYMBOL (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols))
     ->name->data);
  char *type_name;
  
  switch (XINT (*(Lisp_Object *)(offset + (char *)&buffer_local_types)))

    case Lisp_Int:	type_name = "integers";  break;
    case Lisp_String:	type_name = "strings";   break;
    case Lisp_Marker:	type_name = "markers";   break;
    case Lisp_Symbol:	type_name = "symbols";   break;
    case Lisp_Cons:	type_name = "lists";     break;
    case Lisp_Vector:	type_name = "vector";    break;
    default:
      abort ();
    }

  error ("only %s should be stored in the buffer-local variable %s",

Each window can have its own, overriding display table.");

  DEFVAR_PER_BUFFER ("buffer-field-list", &current_buffer->fieldlist, Qnil,
    "List of fields in the current buffer.  See `add-field'.");

  DEFVAR_BOOL ("check-protected-fields", check_protected_fields,
    "Non-nil means don't allow modification of a protected field.\n\
See `add-field'.");
  check_protected_fields = 0;

/*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol,

1909:ea6c75bc0d38

  Fset_buffer (buf);
  if (NILP (norecord))
    record_buffer (buf);

  Fset_window_buffer (EQ (selected_window, minibuf_window)
		      ? Fnext_window (minibuf_window, Qnil, Qnil)
		      : selected_window,
		      buf);

  return Qnil;
}

  if (NILP (buf))
    {
      XSET (buf, Lisp_Buffer, current_buffer);

      /* If we're burying the current buffer, unshow it.  */
      Fswitch_to_buffer (Fother_buffer (buf, Qnil), Qnil);
    }
  else
    {
      Lisp_Object buf1;
      

void
buffer_slot_type_mismatch (valcontents, newval)
     Lisp_Object valcontents, newval;
{
  unsigned int offset = XUINT (valcontents);
  unsigned char *symbol_name =
    (XSYMBOL (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols))
     ->name->data);
  char *type_name;
  
  switch (XINT (*(Lisp_Object *)(offset + (char *)&buffer_local_types)))

    case Lisp_Int:	type_name = "integers";  break;
    case Lisp_String:	type_name = "strings";   break;
    case Lisp_Marker:	type_name = "markers";   break;
    case Lisp_Symbol:	type_name = "symbols";   break;
    case Lisp_Cons:	type_name = "lists";     break;
    case Lisp_Vector:	type_name = "vectors";   break;
    default:
      abort ();
    }

  error ("only %s should be stored in the buffer-local variable %s",

Each window can have its own, overriding display table.");

  DEFVAR_PER_BUFFER ("buffer-field-list", &current_buffer->fieldlist, Qnil,
    "List of fields in the current buffer.  See `add-field'.");

  DEFVAR_BOOL ("check-protected-fields", &check_protected_fields,
    "Non-nil means don't allow modification of a protected field.\n\
See `add-field'.");
  check_protected_fields = 0;

/*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol,