From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 24 Jun 2006 06:49:16 +0000 (+0000)
Subject: (read_escape): When an unknown Unicode code point is encountered as a string
X-Git-Tag: emacs-pretest-22.0.90~1855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ee96155218069ecc02c4a3fcafc4fe793899a9a;p=emacs.git

(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 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: