Commit 188d4d11 authored by Roland McGrath's avatar Roland McGrath
Browse files

(syms_of_buffer): Make erase-buffer a disabled command.

parent 6ba6e250
......@@ -1402,6 +1402,8 @@ init_buffer ()
/* initialize the buffer routines */
syms_of_buffer ()
{
extern Lisp_Object Qdisabled;
staticpro (&Vbuffer_defaults);
staticpro (&Vbuffer_local_symbols);
staticpro (&Qfundamental_mode);
......@@ -1417,6 +1419,8 @@ 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. */
......
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