Mercurial > hg > xemacs-beta

comparison tests/gtk/event-stream-tests.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents 0784d089fdc9
children db7068430402
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
27 Additional test cases for accept-process-output, sleep-for, sit-for. 27 Additional test cases for accept-process-output, sleep-for, sit-for.
28 Be sure you do all of the above checking for C-g and focus, too! 28 Be sure you do all of the above checking for C-g and focus, too!
29 29
30 ; Make sure that timer handlers are run during, not after sit-for: 30 ; Make sure that timer handlers are run during, not after sit-for:
31 (defun timer-check () 31 (defun timer-check ()
32 (add-timeout 2 '(lambda (ignore) (message "timer ran")) nil) 32 (add-timeout 2 #'(lambda (ignore) (message "timer ran")) nil)
33 (sit-for 5) 33 (sit-for 5)
34 (message "after sit-for")) 34 (message "after sit-for"))
35 35
36 ; The first message should appear after 2 seconds, and the final message 36 ; The first message should appear after 2 seconds, and the final message
37 ; 3 seconds after that. 37 ; 3 seconds after that.