From 4158c17d05765a77e587516ec539215753ef546e Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 12 Jan 1994 00:49:37 +0000 Subject: [PATCH] (syms_of_buffer): Don't do (put 'erase-buffer 'disabled t) here. (keys_of_buffer): Do it here instead. --- src/buffer.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/buffer.c b/src/buffer.c index e25d3cef36a..93c707ba8d1 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -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 @@ 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); } -- 2.39.5