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

..

Browse Source 
original commit: 1cbc73879b585c0f668187e266a603315ed9ff0b
This commit is contained in:
Robby Findler 2003-08-12 03:20:09 +00:00
parent 9d53a7c65a
commit c074ae181f
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/text.ss
View File

@ -374,20 +374,12 @@
(let ([str (string (integer->char 160))] (let ([str (string (integer->char 160))]
[last-pos (+ start len)]) [last-pos (+ start len)])
(let loop ([pos start]) (let loop ([pos start])
(when (<= pos (+ start len)) (when (< pos last-pos)
(let ([next-pos (find-string str 'forward pos last-pos)]) (let ([next-pos (find-string str 'forward pos last-pos)])
(when next-pos (when next-pos
(delete next-pos (+ next-pos 1) #f) (delete next-pos (+ next-pos 1) #f)
(insert " " next-pos next-pos #f) (insert " " next-pos next-pos #f)
(loop (+ next-pos 1))))))) (loop (+ next-pos 1)))))))
#;
(let loop ([pos start])
(when (<= pos (+ start len))
(let ([char (get-character pos)])
(when (char=? char (integer->char 160))
(delete pos (+ pos 1) #f)
(insert " " pos pos #f))
(loop (+ pos 1)))))
(set! rewriting #f)) (set! rewriting #f))
(super-after-insert start len) (super-after-insert start len)
(end-edit-sequence)) (end-edit-sequence))