diff lisp/userlock.el @ 371:cc15677e0335 r21-2b1

Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 4f79e16b1112
children 1f50e6fe4f3f
line wrap: on
line diff
--- a/lisp/userlock.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/userlock.el	Mon Aug 13 11:03:08 2007 +0200
@@ -154,9 +154,6 @@
 		 (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
@@ -192,9 +189,6 @@
 		 (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