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

or character escape, signal an error.

1 files changed, 4 insertions, 9 deletions

diff --git a/src/lread.c b/src/lread.c
index a0d4ad825dd..a3da8489e49 100644
--- 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: