--- a/lisp/userlock.el	Mon Aug 13 10:49:08 2007 +0200
+++ b/lisp/userlock.el	Mon Aug 13 10:49:50 2007 +0200
@@ -154,6 +154,9 @@
 		 (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
@@ -189,6 +192,9 @@
 		 (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