mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(type-break-demo-hanoi, type-break-demo-life)

Browse Source 
(type-break-demo-boring): Call read-event instead of read-char.
This commit is contained in:
Chong Yidong 2007-01-20 02:48:45 +00:00
parent fd4b0ac80b
commit 1dfdb0c0b3
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/type-break.el
View File

@ -1131,11 +1131,10 @@ With optional non-nil ALL, force redisplay of all mode-lines."
(progn
(hanoi (/ (window-width) 8))
;; Wait for user to come back.
(read-char)
(read-event)
(kill-buffer "*Hanoi*"))
(quit
;; eat char
(read-char)
(read-event)
(and (get-buffer "*Hanoi*")
(kill-buffer "*Hanoi*")))))
@ -1153,11 +1152,10 @@ With optional non-nil ALL, force redisplay of all mode-lines."
(progn
(life 3)
;; wait for user to return
(read-char)
(read-event)
(kill-buffer "*Life*"))
(life-extinct
(message "%s" (get 'life-extinct 'error-message))
(sit-for 3)
;; restart demo
(setq continue t))
(quit
@ -1246,7 +1244,7 @@ With optional non-nil ALL, force redisplay of all mode-lines."
message))))
(goto-char (point-min))
(sit-for 60))
(read-char)
(read-event)
(kill-buffer buffer-name))
(quit
(and (get-buffer buffer-name)