Mercurial > hg > xemacs-beta

comparison lisp/userlock.el @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents cc15677e0335
children
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
152 (throw 'aual-done nil)) 152 (throw 'aual-done nil))
153 ((and (misc-user-event-p event) (eq (event-object event) 'steal)) 153 ((and (misc-user-event-p event) (eq (event-object event) 'steal))
154 (throw 'aual-done t)) 154 (throw 'aual-done t))
155 ((and (misc-user-event-p event) (eq (event-object event) 'yield)) 155 ((and (misc-user-event-p event) (eq (event-object event) 'yield))
156 (signal 'file-locked (list "File is locked" fn opponent))) 156 (signal 'file-locked (list "File is locked" fn opponent)))
157 ((and (misc-user-event-p event)
158 (eq (event-object event) 'menu-no-selection-hook))
159 (signal 'quit nil))
157 ((button-release-event-p event) ;; don't beep twice 160 ((button-release-event-p event) ;; don't beep twice
158 nil) 161 nil)
159 (t 162 (t
160 (beep) 163 (beep)
161 (message "please answer the dialog box")))))))) 164 (message "please answer the dialog box"))))))))
187 (error 190 (error
188 "ask-user-about-supersession-threat called bogusly")) 191 "ask-user-about-supersession-threat called bogusly"))
189 (revert-buffer nil t) 192 (revert-buffer nil t)
190 (signal 'file-supersession 193 (signal 'file-supersession
191 (list fn "(reverted)"))) 194 (list fn "(reverted)")))
195 ((and (misc-user-event-p event)
196 (eq (event-object event) 'menu-no-selection-hook))
197 (signal 'quit nil))
192 ((button-release-event-p event) ;; don't beep twice 198 ((button-release-event-p event) ;; don't beep twice
193 nil) 199 nil)
194 (t 200 (t
195 (beep) 201 (beep)
196 (message "please answer the dialog box")))))))) 202 (message "please answer the dialog box"))))))))