[Emacs-diffs] Changes to emacs/src/lread.c,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/06/24 06:49:16

Index: lread.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/lread.c,v
retrieving revision 1.353
retrieving revision 1.354
diff -u -b -r1.353 -r1.354
--- lread.c     9 Jun 2006 18:22:30 -0000       1.353
+++ lread.c     24 Jun 2006 06:49:16 -0000      1.354
@@ -1964,18 +1964,13 @@
                          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);
          }
-      }
 
     default:
       if (BASE_LEADING_CODE_P (c))