diff options
| author | Richard M. Stallman | 1993-12-31 17:29:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-31 17:29:12 +0000 |
| commit | 79a7046ca7c50f4abd934a651e23351f2a4a1fa4 (patch) | |
| tree | 4f1c556c86bf31750e3cdf63b969c75de2b08159 /src | |
| parent | e782e9f2710e4becbd9841079c38056919a376c7 (diff) | |
| download | emacs-79a7046ca7c50f4abd934a651e23351f2a4a1fa4.tar.gz emacs-79a7046ca7c50f4abd934a651e23351f2a4a1fa4.zip | |
(lispy_accent_codes): Cope if an XK symbol is undefined.
(make_lispy_event): Define i.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 2b85c37d569..7dd56e90729 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -2122,19 +2122,71 @@ static Lisp_Object mouse_syms; | |||
| 2122 | 2122 | ||
| 2123 | static int lispy_accent_codes[] = | 2123 | static int lispy_accent_codes[] = |
| 2124 | { | 2124 | { |
| 2125 | #ifdef XK_dead_circumflex | ||
| 2125 | XK_dead_circumflex, | 2126 | XK_dead_circumflex, |
| 2127 | #else | ||
| 2128 | 0, | ||
| 2129 | #endif | ||
| 2130 | #ifdef XK_dead_grave | ||
| 2126 | XK_dead_grave, | 2131 | XK_dead_grave, |
| 2132 | #else | ||
| 2133 | 0, | ||
| 2134 | #endif | ||
| 2135 | #ifdef XK_dead_tilde | ||
| 2127 | XK_dead_tilde, | 2136 | XK_dead_tilde, |
| 2137 | #else | ||
| 2138 | 0, | ||
| 2139 | #endif | ||
| 2140 | #ifdef XK_dead_diaeresis | ||
| 2128 | XK_dead_diaeresis, | 2141 | XK_dead_diaeresis, |
| 2142 | #else | ||
| 2143 | 0, | ||
| 2144 | #endif | ||
| 2145 | #ifdef XK_dead_macron | ||
| 2129 | XK_dead_macron, | 2146 | XK_dead_macron, |
| 2147 | #else | ||
| 2148 | 0, | ||
| 2149 | #endif | ||
| 2150 | #ifdef XK_dead_degree | ||
| 2130 | XK_dead_degree, | 2151 | XK_dead_degree, |
| 2152 | #else | ||
| 2153 | 0, | ||
| 2154 | #endif | ||
| 2155 | #ifdef XK_dead_acute | ||
| 2131 | XK_dead_acute, | 2156 | XK_dead_acute, |
| 2157 | #else | ||
| 2158 | 0, | ||
| 2159 | #endif | ||
| 2160 | #ifdef XK_dead_cedilla | ||
| 2132 | XK_dead_cedilla, | 2161 | XK_dead_cedilla, |
| 2162 | #else | ||
| 2163 | 0, | ||
| 2164 | #endif | ||
| 2165 | #ifdef XK_dead_breve | ||
| 2133 | XK_dead_breve, | 2166 | XK_dead_breve, |
| 2167 | #else | ||
| 2168 | 0, | ||
| 2169 | #endif | ||
| 2170 | #ifdef XK_dead_ogonek | ||
| 2134 | XK_dead_ogonek, | 2171 | XK_dead_ogonek, |
| 2172 | #else | ||
| 2173 | 0, | ||
| 2174 | #endif | ||
| 2175 | #ifdef XK_dead_caron | ||
| 2135 | XK_dead_caron, | 2176 | XK_dead_caron, |
| 2177 | #else | ||
| 2178 | 0, | ||
| 2179 | #endif | ||
| 2180 | #ifdef XK_dead_doubleacute | ||
| 2136 | XK_dead_doubleacute, | 2181 | XK_dead_doubleacute, |
| 2182 | #else | ||
| 2183 | 0, | ||
| 2184 | #endif | ||
| 2185 | #ifdef XK_dead_abovedot | ||
| 2137 | XK_dead_abovedot, | 2186 | XK_dead_abovedot, |
| 2187 | #else | ||
| 2188 | 0, | ||
| 2189 | #endif | ||
| 2138 | }; | 2190 | }; |
| 2139 | 2191 | ||
| 2140 | /* This is a list of Lisp names for special "accent" characters. | 2192 | /* This is a list of Lisp names for special "accent" characters. |
| @@ -2310,6 +2362,8 @@ static Lisp_Object | |||
| 2310 | make_lispy_event (event) | 2362 | make_lispy_event (event) |
| 2311 | struct input_event *event; | 2363 | struct input_event *event; |
| 2312 | { | 2364 | { |
| 2365 | int i; | ||
| 2366 | |||
| 2313 | #ifdef SWITCH_ENUM_BUG | 2367 | #ifdef SWITCH_ENUM_BUG |
| 2314 | switch ((int) event->kind) | 2368 | switch ((int) event->kind) |
| 2315 | #else | 2369 | #else |