X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fuserlock.el;h=446c326b1c45e016a75847ac3976872b427fd428;hp=55a5830fb3b0fd0e4f9320441b36e0e3f7ba2042;hb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;hpb=cfe4120f7310b0d3a0a186a91c9e18efe6b1320f

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 55a5830..446c326 100644
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -154,6 +154,9 @@ to get the latest version of the file, then make the change again.")
 		 (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 @@ Do you really want to edit the buffer? " fn)
 		 (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