suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use bytes->string/locale to translate paths-as-bytes to strings

Browse Source 
svn: r5318

original commit: 89ce220ed91d41dfe4f3a50f5bae5763a01afd3b
This commit is contained in:
Eli Barzilay 2007-01-12 00:52:23 +00:00
parent 628f5509e9
commit fe140a7e85
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/path-dialog.ss
View File

@ -51,7 +51,7 @@
(define (path->pname path isdir?) (define (path->pname path isdir?)
(let* ([name (if (member (path->string path) '("." "..")) (let* ([name (if (member (path->string path) '("." ".."))
(path->string path) ; avoid segfault bug (PR8481) (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 (regexp-replace end-separators-rx name "")]
[name (if (<= 199 (string-length name)) [name (if (<= 199 (string-length name))
(string-append (substring name 0 195) "...") (string-append (substring name 0 195) "...")