/[emacs]/emacs/src/keymap.c
ViewVC logotype

Diff of /emacs/src/keymap.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.281 by monnier, Mon May 5 18:06:03 2003 UTC revision 1.282 by rms, Sat May 17 12:47:55 2003 UTC
# Line 412  PARENT should be nil or another keymap. Line 412  PARENT should be nil or another keymap.
412          {          {
413            Lisp_Object indices[3];            Lisp_Object indices[3];
414    
415            map_char_table (fix_submap_inheritance, Qnil, XCAR (list),            map_char_table (fix_submap_inheritance, Qnil,
416                              XCAR (list), XCAR (list),
417                            keymap, 0, indices);                            keymap, 0, indices);
418          }          }
419      }      }
# Line 705  map_keymap (map, fun, args, data, autolo Line 706  map_keymap (map, fun, args, data, autolo
706        else if (CHAR_TABLE_P (binding))        else if (CHAR_TABLE_P (binding))
707          {          {
708            Lisp_Object indices[3];            Lisp_Object indices[3];
709            map_char_table (map_keymap_char_table_item, Qnil, binding,            map_char_table (map_keymap_char_table_item, Qnil, binding, binding,
710                            Fcons (make_save_value (fun, 0),                            Fcons (make_save_value (fun, 0),
711                                   Fcons (make_save_value (data, 0),                                   Fcons (make_save_value (data, 0),
712                                          args)),                                          args)),
# Line 1040  is not copied.  */) Line 1041  is not copied.  */)
1041          {          {
1042            Lisp_Object indices[3];            Lisp_Object indices[3];
1043            elt = Fcopy_sequence (elt);            elt = Fcopy_sequence (elt);
1044            map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices);            map_char_table (copy_keymap_1, Qnil, elt, elt, elt, 0, indices);
1045          }          }
1046        else if (VECTORP (elt))        else if (VECTORP (elt))
1047          {          {
# Line 1914  then the value includes only maps for pr Line 1915  then the value includes only maps for pr
1915              {              {
1916                Lisp_Object indices[3];                Lisp_Object indices[3];
1917    
1918                map_char_table (accessible_keymaps_char_table, Qnil,                map_char_table (accessible_keymaps_char_table, Qnil, elt,
1919                                elt, Fcons (Fcons (maps, make_number (is_metized)),                                elt, Fcons (Fcons (maps, make_number (is_metized)),
1920                                            Fcons (tail, thisseq)),                                            Fcons (tail, thisseq)),
1921                                0, indices);                                0, indices);
# Line 2431  where_is_internal (definition, keymaps, Line 2432  where_is_internal (definition, keymaps,
2432                              Fcons (Fcons (this, last),                              Fcons (Fcons (this, last),
2433                                     Fcons (make_number (nomenus),                                     Fcons (make_number (nomenus),
2434                                            make_number (last_is_meta))));                                            make_number (last_is_meta))));
2435                map_char_table (where_is_internal_2, Qnil, elt, args,                map_char_table (where_is_internal_2, Qnil, elt, elt, args,
2436                                0, indices);                                0, indices);
2437                sequences = XCDR (XCAR (args));                sequences = XCDR (XCAR (args));
2438              }              }

Legend:
Removed from v.1.281  
changed lines
  Added in v.1.282

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26