Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 4f79e16b1112
children 1f50e6fe4f3f
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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))
160 ((button-release-event-p event) ;; don't beep twice 157 ((button-release-event-p event) ;; don't beep twice
161 nil) 158 nil)
162 (t 159 (t
163 (beep) 160 (beep)
164 (message "please answer the dialog box")))))))) 161 (message "please answer the dialog box"))))))))
190 (error 187 (error
191 "ask-user-about-supersession-threat called bogusly")) 188 "ask-user-about-supersession-threat called bogusly"))
192 (revert-buffer nil t) 189 (revert-buffer nil t)
193 (signal 'file-supersession 190 (signal 'file-supersession
194 (list fn "(reverted)"))) 191 (list fn "(reverted)")))
195 ((and (misc-user-event-p event)
196 (eq (event-object event) 'menu-no-selection-hook))
197 (signal 'quit nil))
198 ((button-release-event-p event) ;; don't beep twice 192 ((button-release-event-p event) ;; don't beep twice
199 nil) 193 nil)
200 (t 194 (t
201 (beep) 195 (beep)
202 (message "please answer the dialog box")))))))) 196 (message "please answer the dialog box"))))))))