# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1159244219 0
# Node ID f88e4cd6cc93f418b637f833e6c512b5e457ddb5
# Parent  1e5bc57805bc7f45f10e5b1271bb6b4ff3b30491
(Fsingle_key_description): For an invalid char, retuen
"Invalid char code NNNNN".

diff -r 1e5bc57805bc -r f88e4cd6cc93 src/keymap.c
--- a/src/keymap.c	Tue Sep 26 02:40:50 2006 +0000
+++ b/src/keymap.c	Tue Sep 26 04:16:59 2006 +0000
@@ -2385,9 +2385,15 @@
       else
 	SPLIT_CHAR (without_bits, charset, c1, c2);
 
-      if (charset
-	  && CHAR_VALID_P (charset, 1)
-	  && ((c1 == 0 && c2 == -1) || c2 == 0))
+      if (! CHAR_VALID_P (without_bits, 1))
+	{
+	  char buf[256];
+
+	  sprintf (buf, "Invalid char code %d", XINT (key));
+	  return build_string (buf);
+	}
+      else if (charset
+	       && ((c1 == 0 && c2 == -1) || c2 == 0))
 	{
 	  /* Handle a generic character.  */
 	  Lisp_Object name;