From fe140a7e8569e220f27b47b826ec2989d5e19da9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 12 Jan 2007 00:52:23 +0000 Subject: [PATCH] use bytes->string/locale to translate paths-as-bytes to strings svn: r5318 original commit: 89ce220ed91d41dfe4f3a50f5bae5763a01afd3b --- collects/mred/private/path-dialog.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 8acd0839..7e7ef6ac 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -51,7 +51,7 @@ (define (path->pname path isdir?) (let* ([name (if (member (path->string path) '("." "..")) (path->string path) ; avoid segfault bug (PR8481) - (bytes->string/utf-8 (path-element->bytes path)))] + (bytes->string/locale (path-element->bytes path)))] [name (regexp-replace end-separators-rx name "")] [name (if (<= 199 (string-length name)) (string-append (substring name 0 195) "...")