original commit: 7fadca50edc426738f7fe932daa9ec7eecfabffd
This commit is contained in:
Matthew Flatt 2004-10-21 14:55:59 +00:00
parent 83248c76b6
commit 878606dc1c

View File

@ -7659,7 +7659,11 @@
end))))
(let ([end (if (eq? end 'end) (send text last-position) end)]
[snip (send text find-snip start 'after-or-none)])
(if (and (is-a? snip wx:string-snip%)
;; If the region is small enough, and if the editor contains
;; only string snips, then it's probably better to move
;; all of the text into a string port:
(if (and ((- end start) . < . 4096)
(is-a? snip wx:string-snip%)
(let ([s (send text find-next-non-string-snip snip)])
(or (not s)
((send text get-snip-position s) . >= . end))))