Mercurial > emacs

changeset 71458:3a3db76e2458

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_escape): When an unknown Unicode code point is encountered as a string or character escape, signal an error.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 24 Jun 2006 06:49:16 +0000
parents d4044fb56644
children d2eb037252dc
files src/lread.c
diffstat 1 files changed, 4 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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: