..
original commit: cb392265f95b7a3af4e44409df5defb819017e05
This commit is contained in:
parent
415537868c
commit
01064e7ab4
|
@ -656,7 +656,7 @@
|
|||
(lambda (item control)
|
||||
(let* ([b (box #f)]
|
||||
[edit (get-editor)]
|
||||
[filename (get-filename b)])
|
||||
[filename (send edit get-filename b)])
|
||||
(if (or (not filename) (unbox b))
|
||||
(bell)
|
||||
(let ([start
|
||||
|
|
Loading…
Reference in New Issue
Block a user