Commit 4158c17d authored by Roland McGrath's avatar Roland McGrath
Browse files

(syms_of_buffer): Don't do (put 'erase-buffer 'disabled t) here.

(keys_of_buffer): Do it here instead.
parent 4458cebe
/* Buffer manipulation primitives for GNU Emacs.
Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993
Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994
Free Software Foundation, Inc.
This file is part of GNU Emacs.
......@@ -2204,8 +2204,6 @@ syms_of_buffer ()
Fput (Qprotected_field, Qerror_message,
build_string ("Attempt to modify a protected field"));
Fput (intern ("erase-buffer"), Qdisabled, Qt);
/* All these use DEFVAR_LISP_NOPRO because the slots in
buffer_defaults will all be marked via Vbuffer_defaults. */
......@@ -2575,4 +2573,8 @@ keys_of_buffer ()
initial_define_key (control_x_map, 'b', "switch-to-buffer");
initial_define_key (control_x_map, 'k', "kill-buffer");
initial_define_key (control_x_map, Ctl ('B'), "list-buffers");
/* This must not be in syms_of_buffer, because Qdisabled is not
initialized when that function gets called. */
Fput (intern ("erase-buffer"), Qdisabled, Qt);
}
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