(throw 'aual-done t))
((and (misc-user-event-p event) (eq (event-object event) 'yield))
(signal 'file-locked (list "File is locked" fn opponent)))
+ ((and (misc-user-event-p event)
+ (eq (event-object event) 'menu-no-selection-hook))
+ (signal 'quit nil))
((button-release-event-p event) ;; don't beep twice
nil)
(t
(revert-buffer nil t)
(signal 'file-supersession
(list fn "(reverted)")))
+ ((and (misc-user-event-p event)
+ (eq (event-object event) 'menu-no-selection-hook))
+ (signal 'quit nil))
((button-release-event-p event) ;; don't beep twice
nil)
(t