make a copy of the snip before writing it to the port
since snips will silently fail to be inserted when they are already inserted and some ports just take snips and insert them into editors without copying them first closes PR 13960
This commit is contained in:
parent
ce7cb703ea
commit
69eafff8a1
|
@ -460,10 +460,10 @@
|
|||
;; do this computation here so that any failures
|
||||
;; during drawing happen under the user's custodian
|
||||
(image-core:compute-image-cache value)
|
||||
(write-special value port)
|
||||
(write-special (send value copy) port)
|
||||
1]
|
||||
[else
|
||||
(write-special value port)
|
||||
(write-special (send value copy) port)
|
||||
1])]
|
||||
[(pict:convertible? value)
|
||||
(write-special (mk-pict-snip value))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user