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 &copy_keymap_inverse_closure); 1149 &copy_keymap_inverse_closure);