Mercurial > emacs
comparison src/keymap.c @ 25785:0d701c4484e3
(Flookup_key, Faccessible_keymaps, describe_vector,
keys_of_keymap, syms_of_keymap): Remove unused variables.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 20 Sep 1999 23:18:45 +0000 |
parents | 0a7261c1d487 |
children | a31ee90585ca |
comparison
equal
deleted
inserted
replaced
25784:fe4ca7eaee87 | 25785:0d701c4484e3 |
---|---|
899 Lisp_Object key; | 899 Lisp_Object key; |
900 Lisp_Object def; | 900 Lisp_Object def; |
901 { | 901 { |
902 register int idx; | 902 register int idx; |
903 register Lisp_Object c; | 903 register Lisp_Object c; |
904 register Lisp_Object tem; | |
905 register Lisp_Object cmd; | 904 register Lisp_Object cmd; |
906 int metized = 0; | 905 int metized = 0; |
907 int meta_bit; | 906 int meta_bit; |
908 int length; | 907 int length; |
909 struct gcpro gcpro1, gcpro2, gcpro3; | 908 struct gcpro gcpro1, gcpro2, gcpro3; |
994 register Lisp_Object keymap; | 993 register Lisp_Object keymap; |
995 Lisp_Object key; | 994 Lisp_Object key; |
996 Lisp_Object accept_default; | 995 Lisp_Object accept_default; |
997 { | 996 { |
998 register int idx; | 997 register int idx; |
999 register Lisp_Object tem; | |
1000 register Lisp_Object cmd; | 998 register Lisp_Object cmd; |
1001 register Lisp_Object c; | 999 register Lisp_Object c; |
1002 int metized = 0; | 1000 int metized = 0; |
1003 int length; | 1001 int length; |
1004 int t_ok = ! NILP (accept_default); | 1002 int t_ok = ! NILP (accept_default); |
1614 } | 1612 } |
1615 } | 1613 } |
1616 } | 1614 } |
1617 else if (CONSP (elt)) | 1615 else if (CONSP (elt)) |
1618 { | 1616 { |
1619 register Lisp_Object cmd, tem, filter; | 1617 register Lisp_Object cmd, tem; |
1620 | 1618 |
1621 cmd = get_keyelt (XCDR (elt), 0); | 1619 cmd = get_keyelt (XCDR (elt), 0); |
1622 /* Ignore definitions that aren't keymaps themselves. */ | 1620 /* Ignore definitions that aren't keymaps themselves. */ |
1623 tem = Fkeymapp (cmd); | 1621 tem = Fkeymapp (cmd); |
1624 if (!NILP (tem)) | 1622 if (!NILP (tem)) |
2941 Lisp_Object tem2; | 2939 Lisp_Object tem2; |
2942 register int i; | 2940 register int i; |
2943 Lisp_Object suppress; | 2941 Lisp_Object suppress; |
2944 Lisp_Object kludge; | 2942 Lisp_Object kludge; |
2945 int first = 1; | 2943 int first = 1; |
2946 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; | 2944 struct gcpro gcpro1, gcpro2, gcpro3; |
2947 /* Range of elements to be handled. */ | 2945 /* Range of elements to be handled. */ |
2948 int from, to; | 2946 int from, to; |
2949 /* A flag to tell if a leaf in this level of char-table is not a | 2947 /* A flag to tell if a leaf in this level of char-table is not a |
2950 generic character (i.e. a complete multibyte character). */ | 2948 generic character (i.e. a complete multibyte character). */ |
2951 int complete_char; | 2949 int complete_char; |
3263 } | 3261 } |
3264 | 3262 |
3265 void | 3263 void |
3266 syms_of_keymap () | 3264 syms_of_keymap () |
3267 { | 3265 { |
3268 Lisp_Object tem; | |
3269 | |
3270 Qkeymap = intern ("keymap"); | 3266 Qkeymap = intern ("keymap"); |
3271 staticpro (&Qkeymap); | 3267 staticpro (&Qkeymap); |
3272 | 3268 |
3273 /* Now we are ready to set up this property, so we can | 3269 /* Now we are ready to set up this property, so we can |
3274 create char tables. */ | 3270 create char tables. */ |
3401 } | 3397 } |
3402 | 3398 |
3403 void | 3399 void |
3404 keys_of_keymap () | 3400 keys_of_keymap () |
3405 { | 3401 { |
3406 Lisp_Object tem; | |
3407 | |
3408 initial_define_key (global_map, 033, "ESC-prefix"); | 3402 initial_define_key (global_map, 033, "ESC-prefix"); |
3409 initial_define_key (global_map, Ctl('X'), "Control-X-prefix"); | 3403 initial_define_key (global_map, Ctl('X'), "Control-X-prefix"); |
3410 } | 3404 } |