Commit 5fcd022d authored by Jim Blandy's avatar Jim Blandy
Browse files

* 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

	* buffer.c (buffer_slot_type_mismatch): Make symbol_name an
	unsigned char *, to match the type of a string's data.
parent 1a4f1e2c
......@@ -814,7 +814,8 @@ the window-buffer correspondences.")
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,
return Qnil;
......@@ -946,7 +947,7 @@ selected window if it is displayed there.")
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);
......@@ -1247,7 +1248,7 @@ buffer_slot_type_mismatch (valcontents, newval)
Lisp_Object valcontents, newval;
unsigned int offset = XUINT (valcontents);
char *symbol_name =
unsigned char *symbol_name =
(XSYMBOL (*(Lisp_Object *)(offset + (char *)&buffer_local_symbols))
char *type_name;
......@@ -1259,7 +1260,7 @@ buffer_slot_type_mismatch (valcontents, newval)
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;
abort ();
......@@ -1624,7 +1625,7 @@ 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,
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;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment