Mercurial > emacs
comparison src/buffer.c @ 2020:8b034dd5da14
(check_protected_fields): Variable deleted.
(syms_of_buffer): Delete vars buffer-field-list and check-protected-fields.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 Mar 1993 02:59:13 +0000 |
| parents | 666e3f26a8d6 |
| children | a1ab3501653c |
comparison
equal
deleted
inserted
replaced
| 2019:c9585b37467c | 2020:8b034dd5da14 |
|---|---|
| 94 corresponding buffer slot may contain a value of any type. If a | 94 corresponding buffer slot may contain a value of any type. If a |
| 95 slot contains an integer, then prospective values' tags must be | 95 slot contains an integer, then prospective values' tags must be |
| 96 equal to that integer. When a tag does not match, the function | 96 equal to that integer. When a tag does not match, the function |
| 97 buffer_slot_type_mismatch will signal an error. */ | 97 buffer_slot_type_mismatch will signal an error. */ |
| 98 struct buffer buffer_local_types; | 98 struct buffer buffer_local_types; |
| 99 | |
| 100 /* Nonzero means don't allow modification of protected fields. */ | |
| 101 | |
| 102 int check_protected_fields; | |
| 103 | 99 |
| 104 Lisp_Object Fset_buffer (); | 100 Lisp_Object Fset_buffer (); |
| 105 void set_buffer_internal (); | 101 void set_buffer_internal (); |
| 106 | 102 |
| 107 /* Alist of all buffer names vs the buffers. */ | 103 /* Alist of all buffer names vs the buffers. */ |
| 1622 the character used as an arrow for control characters (element 259);\n\ | 1618 the character used as an arrow for control characters (element 259);\n\ |
| 1623 the decoration indicating the presence of invisible lines (element 260).\n\ | 1619 the decoration indicating the presence of invisible lines (element 260).\n\ |
| 1624 If this variable is nil, the value of `standard-display-table' is used.\n\ | 1620 If this variable is nil, the value of `standard-display-table' is used.\n\ |
| 1625 Each window can have its own, overriding display table."); | 1621 Each window can have its own, overriding display table."); |
| 1626 | 1622 |
| 1627 DEFVAR_PER_BUFFER ("buffer-field-list", ¤t_buffer->fieldlist, Qnil, | |
| 1628 "List of fields in the current buffer. See `add-field'."); | |
| 1629 | |
| 1630 DEFVAR_BOOL ("check-protected-fields", &check_protected_fields, | |
| 1631 "Non-nil means don't allow modification of a protected field.\n\ | |
| 1632 See `add-field'."); | |
| 1633 check_protected_fields = 0; | |
| 1634 | |
| 1635 /*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol, | 1623 /*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol, |
| 1636 "Don't ask."); | 1624 "Don't ask."); |
| 1637 */ | 1625 */ |
| 1638 DEFVAR_LISP ("before-change-function", &Vbefore_change_function, | 1626 DEFVAR_LISP ("before-change-function", &Vbefore_change_function, |
| 1639 "Function to call before each text change.\n\ | 1627 "Function to call before each text change.\n\ |
