/[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.282.4.1 by handa, Mon Sep 8 12:48:11 2003 UTC revision 1.282.4.2 by fx, Mon Sep 29 18:06:24 2003 UTC
# Line 411  PARENT should be nil or another keymap. Line 411  PARENT should be nil or another keymap.
411    
412        if (CHAR_TABLE_P (XCAR (list)))        if (CHAR_TABLE_P (XCAR (list)))
413          {          {
414            Lisp_Object indices[3];            map_char_table (fix_submap_inheritance, Qnil, XCAR (list), keymap);
   
           map_char_table (fix_submap_inheritance, Qnil,  
                           XCAR (list), keymap);  
415          }          }
416      }      }
417    
# Line 685  map_keymap (map, fun, args, data, autolo Line 682  map_keymap (map, fun, args, data, autolo
682          }          }
683        else if (CHAR_TABLE_P (binding))        else if (CHAR_TABLE_P (binding))
684          {          {
           Lisp_Object indices[3];  
685            map_char_table (map_keymap_char_table_item, Qnil, binding,            map_char_table (map_keymap_char_table_item, Qnil, binding,
686                            Fcons (make_save_value (fun, 0),                            Fcons (make_save_value (fun, 0),
687                                   Fcons (make_save_value (data, 0),                                   Fcons (make_save_value (data, 0),
# Line 1023  is not copied.  */) Line 1019  is not copied.  */)
1019        Lisp_Object elt = XCAR (keymap);        Lisp_Object elt = XCAR (keymap);
1020        if (CHAR_TABLE_P (elt))        if (CHAR_TABLE_P (elt))
1021          {          {
           Lisp_Object indices[3];  
1022            elt = Fcopy_sequence (elt);            elt = Fcopy_sequence (elt);
1023            map_char_table (copy_keymap_1, Qnil, elt, elt);            map_char_table (copy_keymap_1, Qnil, elt, elt);
1024          }          }
# Line 1907  then the value includes only maps for pr Line 1902  then the value includes only maps for pr
1902    
1903            if (CHAR_TABLE_P (elt))            if (CHAR_TABLE_P (elt))
1904              {              {
               Lisp_Object indices[3];  
   
1905                map_char_table (accessible_keymaps_char_table, Qnil,                map_char_table (accessible_keymaps_char_table, Qnil,
1906                                elt, Fcons (Fcons (maps, make_number (is_metized)),                                elt, Fcons (Fcons (maps, make_number (is_metized)),
1907                                            Fcons (tail, thisseq)));                                            Fcons (tail, thisseq)));
# Line 2378  where_is_internal (definition, keymaps, Line 2371  where_is_internal (definition, keymaps,
2371              }              }
2372            else if (CHAR_TABLE_P (elt))            else if (CHAR_TABLE_P (elt))
2373              {              {
               Lisp_Object indices[3];  
2374                Lisp_Object args;                Lisp_Object args;
2375    
2376                args = Fcons (Fcons (Fcons (definition, noindirect),                args = Fcons (Fcons (Fcons (definition, noindirect),

Legend:
Removed from v.1.282.4.1  
changed lines
  Added in v.1.282.4.2

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