# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 730390957 0
# Node ID ea6c75bc0d387dfc1822905b2c045efda729c335
# Parent  d649f2179d67635f2b6d979476baa1d58c5a859a
	* 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.

diff -r d649f2179d67 -r ea6c75bc0d38 src/buffer.c
--- a/src/buffer.c	Mon Feb 22 14:22:03 1993 +0000
+++ b/src/buffer.c	Mon Feb 22 14:22:37 1993 +0000
@@ -814,7 +814,8 @@
     record_buffer (buf);
 
   Fset_window_buffer (EQ (selected_window, minibuf_window)
-		      ? Fnext_window (minibuf_window, Qnil) : selected_window,
+		      ? Fnext_window (minibuf_window, Qnil, Qnil)
+		      : selected_window,
 		      buf);
 
   return Qnil;
@@ -946,7 +947,7 @@
       XSET (buf, Lisp_Buffer, current_buffer);
 
       /* If we're burying the current buffer, unshow it.  */
-      Fswitch_to_buffer (Fother_buffer (buf), Qnil);
+      Fswitch_to_buffer (Fother_buffer (buf, Qnil), Qnil);
     }
   else
     {
@@ -1247,7 +1248,7 @@
      Lisp_Object valcontents, newval;
 {
   unsigned int offset = XUINT (valcontents);
-  char *symbol_name =
+  unsigned char *symbol_name =
     (XSYMBOL (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols))
      ->name->data);
   char *type_name;
@@ -1259,7 +1260,7 @@
     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;
+    case Lisp_Vector:	type_name = "vectors";   break;
     default:
       abort ();
     }
@@ -1624,7 +1625,7 @@
   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,
+  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;