# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1151131756 0
# Node ID 3a3db76e2458416c266fb07ace174791c16d75dd
# Parent  d4044fb566444471a83a98a213a562eba520c662
(read_escape): When an unknown Unicode code point is encountered as a string
or character escape, signal an error.

diff -r d4044fb56644 -r 3a3db76e2458 src/lread.c
--- a/src/lread.c	Sat Jun 24 06:41:50 2006 +0000
+++ b/src/lread.c	Sat Jun 24 06:49:16 2006 +0000
@@ -1964,17 +1964,12 @@
 			  make_number(i));
 	UNGCPRO;
 
-	if (EQ(Qnil, lisp_char))
+	if (NILP(lisp_char))
 	  {
-	    /* This is ugly and horrible and trashes the user's data.  */
-	    XSETFASTINT (i, MAKE_CHAR (charset_katakana_jisx0201,
-				       34 + 128, 46 + 128));
-            return i;
+	    error ("Unsupported Unicode code point: U+%x", (unsigned)i);
 	  }
-	else
-	  {
-	    return XFASTINT (lisp_char);
-	  }
+
+	return XFASTINT (lisp_char);
       }
 
     default: