comparison src/lisp.h @ 9392:32186e807f02

(enum Lisp_Misc_Type): New type. (struct Lisp_Marker): Add a member of that type. Delete unused member `modified'.
author Karl Heuer <kwzh@gnu.org>
date Fri, 07 Oct 1994 21:44:51 +0000
parents eba41c493729
children 3a157cdf395c
comparison
equal deleted inserted replaced
9391:6061a432881f 9392:32186e807f02
157 list of the form 157 list of the form
158 ((START . END) nil . PLIST) 158 ((START . END) nil . PLIST)
159 where START and END are markers in the overlay's buffer, and 159 where START and END are markers in the overlay's buffer, and
160 PLIST is the overlay's property list. */ 160 PLIST is the overlay's property list. */
161 Lisp_Overlay 161 Lisp_Overlay
162 };
163
164 /* This is the set of datatypes that share the marker structure.
165 The first member of the structure is a type code from this set. */
166 enum Lisp_Misc_Type
167 {
168 Lisp_Misc_Marker
162 }; 169 };
163 170
164 #ifndef NO_UNION_TYPE 171 #ifndef NO_UNION_TYPE
165 172
166 #ifndef WORDS_BIG_ENDIAN 173 #ifndef WORDS_BIG_ENDIAN
569 576
570 /* In a marker, the markbit of the chain field is used as the gc mark bit */ 577 /* In a marker, the markbit of the chain field is used as the gc mark bit */
571 578
572 struct Lisp_Marker 579 struct Lisp_Marker
573 { 580 {
581 enum Lisp_Misc_Type type; /* = Lisp_Misc_Marker */
574 struct buffer *buffer; 582 struct buffer *buffer;
575 Lisp_Object chain; 583 Lisp_Object chain;
576 int bufpos; 584 int bufpos;
577 int modified;
578 }; 585 };
579 586
580 #ifdef LISP_FLOAT_TYPE 587 #ifdef LISP_FLOAT_TYPE
581 /* Optional Lisp floating point type */ 588 /* Optional Lisp floating point type */
582 struct Lisp_Float 589 struct Lisp_Float