.
original commit: 7fadca50edc426738f7fe932daa9ec7eecfabffd
This commit is contained in:
parent
83248c76b6
commit
878606dc1c
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user