Mercurial > emacs
changeset 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 22 Feb 1993 14:22:37 +0000 |
| parents | d649f2179d67 |
| children | f2c914cdc071 |
| files | src/buffer.c |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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", ¤t_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;