Mercurial > hg > xemacs-beta
comparison src/marker.c @ 420:41dbb7a9d5f2 r21-2-18
Import from CVS: tag r21-2-18
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:24:09 +0200 |
parents | 697ef44129c6 |
children | 11054d720c21 |
comparison
equal
deleted
inserted
replaced
419:66615b78f1a5 | 420:41dbb7a9d5f2 |
---|---|
93 if (hash) | 93 if (hash) |
94 hash = HASH2 (hash, XMARKER (obj)->memind); | 94 hash = HASH2 (hash, XMARKER (obj)->memind); |
95 return hash; | 95 return hash; |
96 } | 96 } |
97 | 97 |
98 static const struct lrecord_description marker_description[] = { | |
99 { XD_LISP_OBJECT, offsetof(struct Lisp_Marker, next), 3 }, | |
100 { XD_END } | |
101 }; | |
102 | |
98 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("marker", marker, | 103 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("marker", marker, |
99 mark_marker, print_marker, 0, | 104 mark_marker, print_marker, 0, |
100 marker_equal, marker_hash, | 105 marker_equal, marker_hash, marker_description, |
101 struct Lisp_Marker); | 106 struct Lisp_Marker); |
102 | 107 |
103 /* Operations on markers. */ | 108 /* Operations on markers. */ |
104 | 109 |
105 DEFUN ("marker-buffer", Fmarker_buffer, 1, 1, 0, /* | 110 DEFUN ("marker-buffer", Fmarker_buffer, 1, 1, 0, /* |