Mercurial > hg > xemacs-beta
diff src/keymap.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005
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 |
line wrap: on
line diff
--- a/src/keymap.c Sat Dec 26 00:20:16 2009 -0600 +++ b/src/keymap.c Sat Dec 26 00:20:27 2009 -0600 @@ -282,9 +282,8 @@ }; /* No need for keymap_equal #### Why not? */ -DEFINE_LRECORD_IMPLEMENTATION ("keymap", keymap, - 1, /*dumpable-flag*/ - mark_keymap, print_keymap, 0, 0, 0, +DEFINE_LISP_OBJECT ("keymap", keymap, + mark_keymap, print_keymap, 0, 0, 0, keymap_description, Lisp_Keymap); @@ -755,10 +754,8 @@ static Lisp_Object make_keymap (Elemcount size) { - Lisp_Object result; - Lisp_Keymap *keymap = ALLOC_LCRECORD_TYPE (Lisp_Keymap, &lrecord_keymap); - - result = wrap_keymap (keymap); + Lisp_Object obj = ALLOC_LISP_OBJECT (keymap); + Lisp_Keymap *keymap = XKEYMAP (obj); keymap->parents = Qnil; keymap->prompt = Qnil; @@ -778,7 +775,7 @@ make_lisp_hash_table (size * 3 / 4, HASH_TABLE_NON_WEAK, HASH_TABLE_EQ); } - return result; + return obj; } DEFUN ("make-keymap", Fmake_keymap, 0, 1, 0, /* @@ -4306,7 +4303,7 @@ void syms_of_keymap (void) { - INIT_LRECORD_IMPLEMENTATION (keymap); + INIT_LISP_OBJECT (keymap); DEFSYMBOL (Qminor_mode_map_alist);