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", &current_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\