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

adjust the calls to paragraph-{start,end}-position to specify the default argument

Browse Source
This commit is contained in:
Robby Findler 2011-10-07 14:00:37 -05:00
parent 2339046554
commit 7aa6153da1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/frame.rkt
View File

@ -1519,8 +1519,8 @@
(define ed (get-editor))
(define (line-len p)
(define ans
(- (send ed paragraph-end-position p)
(send ed paragraph-start-position p)))
(- (send ed paragraph-end-position p #f)
(send ed paragraph-start-position p #f)))
ans)
(when ed
(let loop ([p (- (send ed last-paragraph) 1)]
@ -1529,8 +1529,8 @@
(cond
[(= p -1)
(send ed set-position
(send ed paragraph-start-position longest)
(send ed paragraph-end-position longest))]
(send ed paragraph-start-position longest #f)
(send ed paragraph-end-position longest #f))]
[else
(define this-size (line-len p))
(cond