(throw 'aual-done t))
((and (misc-user-event-p event) (eq (event-object event) 'yield))
(signal 'file-locked (list "File is locked" fn opponent)))
(throw 'aual-done t))
((and (misc-user-event-p event) (eq (event-object event) 'yield))
(signal 'file-locked (list "File is locked" fn opponent)))