aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKen Raeburn2000-06-18 20:14:35 +0000
committerKen Raeburn2000-06-18 20:14:35 +0000
commitdc1741f3a3cecb04f62708762aa586a420cafa08 (patch)
tree667e5be4a121c67e57896830ced94c8bf6c11da9 /src
parent4ea325f5d9096bd271d0c25aeadebe02945ef3c6 (diff)
downloademacs-dc1741f3a3cecb04f62708762aa586a420cafa08.tar.gz
emacs-dc1741f3a3cecb04f62708762aa586a420cafa08.zip
fix shadowing of 'keymap' enum value
Diffstat (limited to 'src')
-rw-r--r--src/keymap.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/keymap.c b/src/keymap.c
index fe2368d14cb..8ef1b8ab450 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2063,14 +2063,14 @@ and entirely reject menu bindings.\n\
2063If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\ 2063If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\
2064to other keymaps or slots. This makes it possible to search for an\n\ 2064to other keymaps or slots. This makes it possible to search for an\n\
2065indirect definition itself.") 2065indirect definition itself.")
2066 (definition, keymap, firstonly, noindirect) 2066 (definition, xkeymap, firstonly, noindirect)
2067 Lisp_Object definition, keymap; 2067 Lisp_Object definition, xkeymap;
2068 Lisp_Object firstonly, noindirect; 2068 Lisp_Object firstonly, noindirect;
2069{ 2069{
2070 Lisp_Object maps; 2070 Lisp_Object maps;
2071 Lisp_Object found, sequences; 2071 Lisp_Object found, sequences;
2072 Lisp_Object keymap1; 2072 Lisp_Object keymap1;
2073 int keymap_specified = !NILP (keymap); 2073 int keymap_specified = !NILP (xkeymap);
2074 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; 2074 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
2075 /* 1 means ignore all menu bindings entirely. */ 2075 /* 1 means ignore all menu bindings entirely. */
2076 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii); 2076 int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
@@ -2079,7 +2079,7 @@ indirect definition itself.")
2079 context. But don't muck with the value of `keymap', 2079 context. But don't muck with the value of `keymap',
2080 because `where_is_internal_1' uses it to check for 2080 because `where_is_internal_1' uses it to check for
2081 shadowed bindings. */ 2081 shadowed bindings. */
2082 keymap1 = keymap; 2082 keymap1 = xkeymap;
2083 if (! keymap_specified) 2083 if (! keymap_specified)
2084 keymap1 = get_local_map (PT, current_buffer, keymap); 2084 keymap1 = get_local_map (PT, current_buffer, keymap);
2085 2085
@@ -2089,7 +2089,7 @@ indirect definition itself.")
2089 Qnil)); 2089 Qnil));
2090 else 2090 else
2091 { 2091 {
2092 keymap1 = keymap; 2092 keymap1 = xkeymap;
2093 if (! keymap_specified) 2093 if (! keymap_specified)
2094 keymap1 = get_local_map (PT, current_buffer, local_map); 2094 keymap1 = get_local_map (PT, current_buffer, local_map);
2095 2095
@@ -2115,7 +2115,7 @@ indirect definition itself.")
2115 } 2115 }
2116 } 2116 }
2117 2117
2118 GCPRO5 (definition, keymap, maps, found, sequences); 2118 GCPRO5 (definition, xkeymap, maps, found, sequences);
2119 found = Qnil; 2119 found = Qnil;
2120 sequences = Qnil; 2120 sequences = Qnil;
2121 2121
@@ -2168,7 +2168,7 @@ indirect definition itself.")
2168 binding = XVECTOR (elt)->contents[i]; 2168 binding = XVECTOR (elt)->contents[i];
2169 XSETFASTINT (key, i); 2169 XSETFASTINT (key, i);
2170 sequence = where_is_internal_1 (binding, key, definition, 2170 sequence = where_is_internal_1 (binding, key, definition,
2171 noindirect, keymap, this, 2171 noindirect, xkeymap, this,
2172 last, nomenus, last_is_meta); 2172 last, nomenus, last_is_meta);
2173 if (!NILP (sequence)) 2173 if (!NILP (sequence))
2174 sequences = Fcons (sequence, sequences); 2174 sequences = Fcons (sequence, sequences);
@@ -2180,7 +2180,7 @@ indirect definition itself.")
2180 Lisp_Object args; 2180 Lisp_Object args;
2181 2181
2182 args = Fcons (Fcons (Fcons (definition, noindirect), 2182 args = Fcons (Fcons (Fcons (definition, noindirect),
2183 Fcons (keymap, Qnil)), 2183 Fcons (xkeymap, Qnil)),
2184 Fcons (Fcons (this, last), 2184 Fcons (Fcons (this, last),
2185 Fcons (make_number (nomenus), 2185 Fcons (make_number (nomenus),
2186 make_number (last_is_meta)))); 2186 make_number (last_is_meta))));
@@ -2197,7 +2197,7 @@ indirect definition itself.")
2197 binding = XCDR (elt); 2197 binding = XCDR (elt);
2198 2198
2199 sequence = where_is_internal_1 (binding, key, definition, 2199 sequence = where_is_internal_1 (binding, key, definition,
2200 noindirect, keymap, this, 2200 noindirect, xkeymap, this,
2201 last, nomenus, last_is_meta); 2201 last, nomenus, last_is_meta);
2202 if (!NILP (sequence)) 2202 if (!NILP (sequence))
2203 sequences = Fcons (sequence, sequences); 2203 sequences = Fcons (sequence, sequences);