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, /*