diff options
| author | Ken Raeburn | 2000-06-18 20:14:35 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2000-06-18 20:14:35 +0000 |
| commit | dc1741f3a3cecb04f62708762aa586a420cafa08 (patch) | |
| tree | 667e5be4a121c67e57896830ced94c8bf6c11da9 /src | |
| parent | 4ea325f5d9096bd271d0c25aeadebe02945ef3c6 (diff) | |
| download | emacs-dc1741f3a3cecb04f62708762aa586a420cafa08.tar.gz emacs-dc1741f3a3cecb04f62708762aa586a420cafa08.zip | |
fix shadowing of 'keymap' enum value
Diffstat (limited to 'src')
| -rw-r--r-- | src/keymap.c | 18 |
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\ | |||
| 2063 | If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\ | 2063 | If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\ |
| 2064 | to other keymaps or slots. This makes it possible to search for an\n\ | 2064 | to other keymaps or slots. This makes it possible to search for an\n\ |
| 2065 | indirect definition itself.") | 2065 | indirect 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); |