Mercurial > emacs
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 |