aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/dvtm.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/dvtm.scm')
0 files changed, 0 insertions, 0 deletions
generated by cgit
oding; - encoding = environ_locale_charset (); + encoding = "UTF-8"; for (i = argc - 1, lst = SCM_EOL; i >= 0; i--) diff --git a/libguile/strings.c b/libguile/strings.c index 5d0db23..8266247 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -1576,7 +1576,7 @@ scm_from_locale_string (const char *str) SCM scm_from_locale_stringn (const char *str, size_t len) { - return scm_from_stringn (str, len, locale_charset (), + return scm_from_stringn (str, len, "UTF-8", scm_i_default_port_conversion_handler ()); } @@ -1803,7 +1803,7 @@ char * scm_to_locale_stringn (SCM str, size_t *lenp) { return scm_to_stringn (str, lenp, - locale_charset (), + "UTF-8", scm_i_default_port_conversion_handler ()); } @@ -2054,7 +2054,7 @@ scm_to_stringn (SCM str, size_t *lenp, const char *encoding, "string contains #\\nul character: ~S", scm_list_1 (str)); - if (scm_i_is_narrow_string (str) && (encoding == NULL)) + if (scm_i_is_narrow_string (str)) { /* If using native Latin-1 encoding, just copy the string contents. */ @@ -2079,11 +2079,11 @@ scm_to_stringn (SCM str, size_t *lenp, const char *encoding, len = 0; enc = encoding; if (enc == NULL) - enc = "ISO-8859-1"; + enc = "UTF-8"; if (scm_i_is_narrow_string (str)) { ret = mem_iconveh (scm_i_string_chars (str), ilen, - "ISO-8859-1", enc, + "UTF-8", enc, (enum iconv_ilseq_handler) handler, NULL, &buf, &len); --- guile-2.0.9/libguile/ports.c 2013-08-21 11:08:50.000000000 +0200 +++ guile-2.0.9/libguile/ports.c 2013-08-21 11:09:47.000000000 +0200 @@ -2512,7 +2512,7 @@ scm_i_port_iconv_descriptors (SCM port, const char *precise_encoding; if (!pt->encoding) - pt->encoding = "ISO-8859-1"; + pt->encoding = "UTF-8"; /* If the specified encoding is UTF-16 or UTF-32, then make that more precise by deciding what byte order to use. */