Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 5474:4dee0387b9de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Tue, 29 Mar 2011 00:02:47 +0200
parents ac37a5f7e5be 3889ef128488
children 56144c8593a8
comparison
equal deleted inserted replaced
5473:ac37a5f7e5be 5474:4dee0387b9de
5373 5373
5374 ;(setq x (list (read-char) quit-flag))^J^G 5374 ;(setq x (list (read-char) quit-flag))^J^G
5375 ;(let ((inhibit-quit t)) (setq x (list (read-char) quit-flag)))^J^G 5375 ;(let ((inhibit-quit t)) (setq x (list (read-char) quit-flag)))^J^G
5376 ;for BOTH, x should get set to (7 t), but no result should be printed. 5376 ;for BOTH, x should get set to (7 t), but no result should be printed.
5377 ;; #### According to the doc of quit-flag, second test should return 5377 ;; #### According to the doc of quit-flag, second test should return
5378 ;; (?\^G nil). Accidentaly XEmacs returns correct value. However, 5378 ;; (?\^G nil). XEmacs accidentally returns the correct value. However,
5379 ;; XEmacs 21.1.12 and 21.2.36 both fails on first test. 5379 ;; XEmacs 21.1.12 and 21.2.36 both fail on the first test.
5380 5380
5381 ;also do this: make two frames, one viewing "*scratch*", the other "foo". 5381 ;also do this: make two frames, one viewing "*scratch*", the other "foo".
5382 ;in *scratch*, type (sit-for 20)^J 5382 ;in *scratch*, type (sit-for 20)^J
5383 ;wait a couple of seconds, move cursor to foo, type "a" 5383 ;wait a couple of seconds, move cursor to foo, type "a"
5384 ;a should be inserted in foo. Cursor highlighting should not change in 5384 ;a should be inserted in foo. Cursor highlighting should not change in