aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1993-12-31 17:29:12 +0000
committerRichard M. Stallman1993-12-31 17:29:12 +0000
commit79a7046ca7c50f4abd934a651e23351f2a4a1fa4 (patch)
tree4f1c556c86bf31750e3cdf63b969c75de2b08159 /src
parente782e9f2710e4becbd9841079c38056919a376c7 (diff)
downloademacs-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.c54
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
2123static int lispy_accent_codes[] = 2123static 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
2310make_lispy_event (event) 2362make_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