Mercurial > hg > xemacs-beta
comparison src/keymap.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 | 95016f13131a |
comparison
equal
deleted
inserted
replaced
419:66615b78f1a5 | 420:41dbb7a9d5f2 |
---|---|
283 ((size == 1) ? "y" : "ies"), | 283 ((size == 1) ? "y" : "ies"), |
284 keymap->header.uid); | 284 keymap->header.uid); |
285 write_c_string (buf, printcharfun); | 285 write_c_string (buf, printcharfun); |
286 } | 286 } |
287 | 287 |
288 static const struct lrecord_description keymap_description[] = { | |
289 { XD_LISP_OBJECT, offsetof(Lisp_Keymap, parents), 6 }, | |
290 { XD_LISP_OBJECT, offsetof(Lisp_Keymap, name), 1 }, | |
291 { XD_END } | |
292 }; | |
293 | |
288 /* No need for keymap_equal #### Why not? */ | 294 /* No need for keymap_equal #### Why not? */ |
289 DEFINE_LRECORD_IMPLEMENTATION ("keymap", keymap, | 295 DEFINE_LRECORD_IMPLEMENTATION ("keymap", keymap, |
290 mark_keymap, print_keymap, 0, 0, 0, | 296 mark_keymap, print_keymap, 0, 0, 0, |
297 keymap_description, | |
291 Lisp_Keymap); | 298 Lisp_Keymap); |
292 | 299 |
293 /************************************************************************/ | 300 /************************************************************************/ |
294 /* Traversing keymaps and their parents */ | 301 /* Traversing keymaps and their parents */ |
295 /************************************************************************/ | 302 /************************************************************************/ |