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\ |