Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/src/keymap.c Mon Sep 20 23:18:45 1999 +0000 +++ b/src/keymap.c Mon Sep 20 23:18:45 1999 +0000 @@ -901,7 +901,6 @@ { register int idx; register Lisp_Object c; - register Lisp_Object tem; register Lisp_Object cmd; int metized = 0; int meta_bit; @@ -996,7 +995,6 @@ Lisp_Object accept_default; { register int idx; - register Lisp_Object tem; register Lisp_Object cmd; register Lisp_Object c; int metized = 0; @@ -1616,7 +1614,7 @@ } else if (CONSP (elt)) { - register Lisp_Object cmd, tem, filter; + register Lisp_Object cmd, tem; cmd = get_keyelt (XCDR (elt), 0); /* Ignore definitions that aren't keymaps themselves. */ @@ -2943,7 +2941,7 @@ Lisp_Object suppress; Lisp_Object kludge; int first = 1; - struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; + struct gcpro gcpro1, gcpro2, gcpro3; /* Range of elements to be handled. */ int from, to; /* A flag to tell if a leaf in this level of char-table is not a @@ -3265,8 +3263,6 @@ void syms_of_keymap () { - Lisp_Object tem; - Qkeymap = intern ("keymap"); staticpro (&Qkeymap); @@ -3403,8 +3399,6 @@ void keys_of_keymap () { - Lisp_Object tem; - initial_define_key (global_map, 033, "ESC-prefix"); initial_define_key (global_map, Ctl('X'), "Control-X-prefix"); }