Mercurial > hg > xemacs-beta

comparison src/marker.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
113 Lisp_Object tem = wrap_marker (header); 113 Lisp_Object tem = wrap_marker (header);
114 unchain_marker (tem); 114 unchain_marker (tem);
115 } 115 }
116 } 116 }
117 117
118 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("marker", marker, 118 DEFINE_BASIC_LISP_OBJECT ("marker", marker,
119 1, /*dumpable-flag*/
120 mark_marker, print_marker, 119 mark_marker, print_marker,
121 finalize_marker, 120 finalize_marker,
122 marker_equal, marker_hash, 121 marker_equal, marker_hash,
123 marker_description, Lisp_Marker); 122 marker_description, Lisp_Marker);
124 #else /* not MC_ALLOC */ 123 #else /* not MC_ALLOC */
125 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("marker", marker, 124 DEFINE_BASIC_LISP_OBJECT ("marker", marker,
126 1, /*dumpable-flag*/
127 mark_marker, print_marker, 0, 125 mark_marker, print_marker, 0,
128 marker_equal, marker_hash, 126 marker_equal, marker_hash,
129 marker_description, Lisp_Marker); 127 marker_description, Lisp_Marker);
130 #endif /* not MC_ALLOC */ 128 #endif /* not MC_ALLOC */
131 129
527 525
528 526
529 void 527 void
530 syms_of_marker (void) 528 syms_of_marker (void)
531 { 529 {
532 INIT_LRECORD_IMPLEMENTATION (marker); 530 INIT_LISP_OBJECT (marker);
533 531
534 DEFSUBR (Fmarker_position); 532 DEFSUBR (Fmarker_position);
535 DEFSUBR (Fmarker_buffer); 533 DEFSUBR (Fmarker_buffer);
536 DEFSUBR (Fset_marker); 534 DEFSUBR (Fset_marker);
537 DEFSUBR (Fcopy_marker); 535 DEFSUBR (Fcopy_marker);