# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 731547694 0
# Node ID 7eea4dfc51337cf091209649c4cacd2d732529ae
# Parent  3eaba0d9797cb0279c10dd763b46882c009d1b80
(syms_of_buffer): Make erase-buffer a disabled command.

diff -r 3eaba0d9797c -r 7eea4dfc5133 src/buffer.c
--- a/src/buffer.c	Sun Mar 07 23:32:54 1993 +0000
+++ b/src/buffer.c	Sun Mar 07 23:41:34 1993 +0000
@@ -1402,6 +1402,8 @@
 /* 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 @@
   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.  */