From 3468ee51456da535ebb99d74e64382ebe3c109e5 Mon Sep 17 00:00:00 2001 From: Alex Shinn <ashinn@users.noreply.github.com> Date: Wed, 23 Nov 2011 13:16:29 +0900 Subject: [PATCH] don't use sexp_write_utf8_char in display if utf8 not supported --- sexp.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/sexp.c b/sexp.c index cf4ad914..277d2d2a 100644 --- a/sexp.c +++ b/sexp.c @@ -1725,7 +1725,11 @@ sexp sexp_display_op (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sexp out) { if (sexp_stringp(obj)) sexp_write_string(ctx, sexp_string_data(obj), out); else if (sexp_charp(obj)) +#if SEXP_USE_UTF8_STRINGS sexp_write_utf8_char(ctx, sexp_unbox_character(obj), out); +#else + sexp_write_char(ctx, sexp_unbox_character(obj), out); +#endif else res = sexp_write_one(ctx, obj, out); return res;