Mercurial > hg > xemacs-beta

comparison lisp/userlock.el @ 333:4f79e16b1112 r21-0-64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-64
author cvs
date Mon, 13 Aug 2007 10:49:50 +0200
parents 0e522484dd2a
children cc15677e0335
comparison
equal deleted inserted replaced
332:bb75ebac9531 333:4f79e16b1112
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"))))))))