removed some bogus code

This commit is contained in:
Robby Findler 2010-10-04 12:49:52 -05:00
parent d7b9857f7b
commit ca930a8e30

View File

@ -1137,18 +1137,6 @@
#t #t
'none))))) 'none)))))
(let ([admin (send src get-admin)])
(when admin
(let-values ([(w h) (send admin get-view-size)]
[(x y) (send src position-location (- pos 1))])
(send src scroll-editor-to
(max 0 (- x (* .1 w)))
(max 0 (- y (* .1 h)))
w h
#t
'none))))
(send src set-position (- pos 1) (+ pos span -1)) (send src set-position (- pos 1) (+ pos span -1))
(send src end-edit-sequence)))) (send src end-edit-sequence))))