comparison src/lread.c @ 90478:65a8f4ffdbca

(read_escape): Fix the code synched with HEAD.

90477:c5d9875473a9

      /* A Unicode escape. We only permit them in strings and characters,
	 not arbitrarily in the source code, as in some other languages.  */
      {
	int i = 0;
	int count = 0;
	Lisp_Object lisp_char;
	struct gcpro gcpro1;

	while (++count <= unicode_hex_count)
	  {
	    c = READCHAR;
	    /* isdigit(), isalpha() may be locale-specific, which we don't

		error ("Non-hex digit used for Unicode escape");
		break;
	      }
	  }

	GCPRO1 (readcharfun);
	lisp_char = call2(intern("decode-char"), intern("ucs"),
			  make_number(i));
	UNGCPRO;

	if (EQ(Qnil, 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);
	  }
      }

    default:
      return c;
    }

90478:65a8f4ffdbca

      /* A Unicode escape. We only permit them in strings and characters,
	 not arbitrarily in the source code, as in some other languages.  */
      {
	int i = 0;
	int count = 0;

	while (++count <= unicode_hex_count)
	  {
	    c = READCHAR;
	    /* isdigit(), isalpha() may be locale-specific, which we don't

		error ("Non-hex digit used for Unicode escape");
		break;
	      }
	  }

	return i;
      }

    default:
      return c;
    }