XEmacs 21.2.11

[chise/xemacs-chise.git.1] / lisp / userlock.el

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 55a5830..446c326 100644 (file)
--- 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)))
                 (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
                ((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)")))
                 (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
                ((button-release-event-p event) ;; don't beep twice
                 nil)
                (t