Mercurial > hg > xemacs-beta
comparison src/keymap.c @ 422:95016f13131a r21-2-19
Import from CVS: tag r21-2-19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:25:01 +0200 |
parents | 41dbb7a9d5f2 |
children | 11054d720c21 |
comparison
equal
deleted
inserted
replaced
421:fff06e11db74 | 422:95016f13131a |
---|---|
1139 new_keymap->parents = Fcopy_sequence (keymap->parents); | 1139 new_keymap->parents = Fcopy_sequence (keymap->parents); |
1140 new_keymap->fullness = keymap->fullness; | 1140 new_keymap->fullness = keymap->fullness; |
1141 new_keymap->sub_maps_cache = Qnil; /* No submaps */ | 1141 new_keymap->sub_maps_cache = Qnil; /* No submaps */ |
1142 new_keymap->table = Fcopy_hash_table (keymap->table); | 1142 new_keymap->table = Fcopy_hash_table (keymap->table); |
1143 new_keymap->inverse_table = Fcopy_hash_table (keymap->inverse_table); | 1143 new_keymap->inverse_table = Fcopy_hash_table (keymap->inverse_table); |
1144 new_keymap->default_binding = keymap->default_binding; | |
1144 /* After copying the inverse map, we need to copy the conses which | 1145 /* After copying the inverse map, we need to copy the conses which |
1145 are its values, lest they be shared by the copy, and mangled. | 1146 are its values, lest they be shared by the copy, and mangled. |
1146 */ | 1147 */ |
1147 elisp_maphash (copy_keymap_inverse_mapper, keymap->inverse_table, | 1148 elisp_maphash (copy_keymap_inverse_mapper, keymap->inverse_table, |
1148 ©_keymap_inverse_closure); | 1149 ©_keymap_inverse_closure); |