# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1035845400 0
# Node ID c0f658e432a716c3c90163d8329bea591c17772e
# Parent  cfe99461ac2eb64a4bba3940a555bf2fb09728d5
(lispy_accent_codes, lispy_accent_keys): Extend.
(lispy_kana_keys): Comment out.
(make_lispy_event) [XK_kana_A]: Comment out.

diff -r cfe99461ac2e -r c0f658e432a7 src/keyboard.c
--- a/src/keyboard.c	Mon Oct 28 22:48:53 2002 +0000
+++ b/src/keyboard.c	Mon Oct 28 22:50:00 2002 +0000
@@ -4258,6 +4258,41 @@
 #else
   0,
 #endif
+#ifdef XK_dead_abovering
+  XK_dead_abovering,
+#else
+  0,
+#endif
+#ifdef XK_dead_iota
+  XK_dead_iota,
+#else
+  0,
+#endif
+#ifdef XK_dead_belowdot
+  XK_dead_belowdot,
+#else
+  0,
+#endif
+#ifdef XK_dead_voiced_sound
+  XK_dead_voiced_sound,
+#else
+  0,
+#endif
+#ifdef XK_dead_semivoiced_sound
+  XK_dead_semivoiced_sound,
+#else
+  0,
+#endif
+#ifdef XK_dead_hook
+  XK_dead_hook,
+#else
+  0,
+#endif
+#ifdef XK_dead_horn
+  XK_dead_horn,
+#else
+  0,
+#endif
 };
 
 /* This is a list of Lisp names for special "accent" characters.
@@ -4278,6 +4313,13 @@
   "dead-caron",
   "dead-doubleacute",
   "dead-abovedot",
+  "dead-abovering",
+  "dead-iota",
+  "dead-belowdot",
+  "dead-voiced-sound",
+  "dead-semivoiced-sound",
+  "dead-hook",
+  "dead-horn",
 };
 
 #ifdef HAVE_NTGUI
@@ -4444,6 +4486,10 @@
 
 #else /* not HAVE_NTGUI */
 
+/* This should be dealt with in XTread_socket now, and that doesn't
+   depend on the client system having the Kana syms defined.  See also
+   the XK_kana_A case below.  */
+#if 0
 #ifdef XK_kana_A
 static char *lispy_kana_keys[] =
   {
@@ -4478,6 +4524,7 @@
     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,	/* 0x4f0 .. 0x4ff */
   };
 #endif /* XK_kana_A */
+#endif /* 0 */
 
 #define FUNCTION_KEY_OFFSET 0xff00
 
@@ -4747,6 +4794,7 @@
 				      (unsigned)-1);
 	}
 
+#if 0
 #ifdef XK_kana_A
       if (event->code >= 0x400 && event->code < 0x500)
 	return modify_event_symbol (event->code - 0x400,
@@ -4756,6 +4804,7 @@
 				    (sizeof (lispy_kana_keys)
 				     / sizeof (lispy_kana_keys[0])));
 #endif /* XK_kana_A */
+#endif /* 0 */
 
 #ifdef ISO_FUNCTION_KEY_OFFSET
       if (event->code < FUNCTION_KEY_OFFSET
@@ -4774,9 +4823,7 @@
 	  || (event->code - FUNCTION_KEY_OFFSET
 	      >= sizeof lispy_function_keys / sizeof *lispy_function_keys))
 	{
-	  /* EVENT->code is an unknown keysym, for example someone
-	     assigned `ccaron' to a key in a locale where
-	     XmbLookupString doesn't return a translation for it.  */
+	  /* EVENT->code is an unknown keysym.  */
 	  char *name;
 	  Lisp_Object symbol;