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

fixed a bug in the goto-line keyboard shortcut's error checking

Browse Source 
svn: r2652
This commit is contained in:
Robby Findler 2006-04-10 13:23:25 +00:00
parent b0eb810834
commit 900f48115a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/keymap.ss
View File

@ -653,10 +653,11 @@
(string-constant goto-line) (string-constant goto-line)
(string-constant goto-line))))]) (string-constant goto-line))))])
(when (string? num-str) (when (string? num-str)
(let ([line-num (inexact->exact (string->number num-str))]) (let* ([possible-num (string->number num-str)]
[line-num (and possible-num (inexact->exact possible-num))])
(cond (cond
[(and (number? line-num) [(and (number? line-num)
(= line-num (floor line-num)) (integer? line-num)
(<= 1 line-num (+ (send edit last-paragraph) 1))) (<= 1 line-num (+ (send edit last-paragraph) 1)))
(let ([pos (send edit paragraph-start-position (let ([pos (send edit paragraph-start-position
(sub1 line-num))]) (sub1 line-num))])