svn: r14499
This commit is contained in:
parent
0be3dca240
commit
4883d8bb1d
|
@ -2178,7 +2178,7 @@
|
||||||
(when found-pos
|
(when found-pos
|
||||||
(unless (hash-ref ht found-txt #f)
|
(unless (hash-ref ht found-txt #f)
|
||||||
(hash-set! ht found-txt #t)
|
(hash-set! ht found-txt #t)
|
||||||
(send txt begin-edit-sequence))
|
(send found-txt begin-edit-sequence))
|
||||||
(let ([start (- found-pos (send find-edit last-position))])
|
(let ([start (- found-pos (send find-edit last-position))])
|
||||||
(send found-txt delete start found-pos)
|
(send found-txt delete start found-pos)
|
||||||
(copy-over replace-edit 0 (send replace-edit last-position) found-txt start)
|
(copy-over replace-edit 0 (send replace-edit last-position) found-txt start)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user