(read_escape): When an unknown Unicode code point is encountered as a string

or character escape, signal an error.

diff --git a/src/lread.c b/src/lread.c
index a0d4ad825ddc0870d007999c2190a3fdb8c76820..a3da8489e49a1b132666d2eb536e7641eae0589e 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1964,17 +1964,12 @@ read_escape (readcharfun, stringp, byterep)
                          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;
-         }
-       else
-         {
-           return XFASTINT (lisp_char);
+           error ("Unsupported Unicode code point: U+%x", (unsigned)i);
          }
+
+       return XFASTINT (lisp_char);
       }
 
     default: