Mercurial > emacs
comparison src/buffer.c @ 2060:7eea4dfc5133
(syms_of_buffer): Make erase-buffer a disabled command.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 07 Mar 1993 23:41:34 +0000 |
| parents | a1ab3501653c |
| children | e5928bec8d5d |
comparison
equal
deleted
inserted
replaced
| 2059:3eaba0d9797c | 2060:7eea4dfc5133 |
|---|---|
| 1400 } | 1400 } |
| 1401 | 1401 |
| 1402 /* initialize the buffer routines */ | 1402 /* initialize the buffer routines */ |
| 1403 syms_of_buffer () | 1403 syms_of_buffer () |
| 1404 { | 1404 { |
| 1405 extern Lisp_Object Qdisabled; | |
| 1406 | |
| 1405 staticpro (&Vbuffer_defaults); | 1407 staticpro (&Vbuffer_defaults); |
| 1406 staticpro (&Vbuffer_local_symbols); | 1408 staticpro (&Vbuffer_local_symbols); |
| 1407 staticpro (&Qfundamental_mode); | 1409 staticpro (&Qfundamental_mode); |
| 1408 staticpro (&Qmode_class); | 1410 staticpro (&Qmode_class); |
| 1409 staticpro (&QSFundamental); | 1411 staticpro (&QSFundamental); |
| 1414 | 1416 |
| 1415 Fput (Qprotected_field, Qerror_conditions, | 1417 Fput (Qprotected_field, Qerror_conditions, |
| 1416 Fcons (Qprotected_field, Fcons (Qerror, Qnil))); | 1418 Fcons (Qprotected_field, Fcons (Qerror, Qnil))); |
| 1417 Fput (Qprotected_field, Qerror_message, | 1419 Fput (Qprotected_field, Qerror_message, |
| 1418 build_string ("Attempt to modify a protected field")); | 1420 build_string ("Attempt to modify a protected field")); |
| 1421 | |
| 1422 Fput (intern ("erase-buffer"), Qdisabled, Qt); | |
| 1419 | 1423 |
| 1420 /* All these use DEFVAR_LISP_NOPRO because the slots in | 1424 /* All these use DEFVAR_LISP_NOPRO because the slots in |
| 1421 buffer_defaults will all be marked via Vbuffer_defaults. */ | 1425 buffer_defaults will all be marked via Vbuffer_defaults. */ |
| 1422 | 1426 |
| 1423 DEFVAR_LISP_NOPRO ("default-mode-line-format", | 1427 DEFVAR_LISP_NOPRO ("default-mode-line-format", |