diff src/buffer.c @ 5570:2c5f3537a1cc

(syms_of_buffer): Don't do (put 'erase-buffer 'disabled t) here. (keys_of_buffer): Do it here instead.
author Roland McGrath <roland@gnu.org>
date Wed, 12 Jan 1994 00:49:37 +0000
parents 2b48fd9bc80e
children 3b4bb6d2c922
line wrap: on
line diff
--- a/src/buffer.c	Tue Jan 11 22:08:49 1994 +0000
+++ b/src/buffer.c	Wed Jan 12 00:49:37 1994 +0000
@@ -1,5 +1,5 @@
 /* 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 @@
   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 @@
   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);
 }