Commit 1dfdb0c0 authored by Chong Yidong's avatar Chong Yidong

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

(type-break-demo-boring): Call read-event instead of read-char.
parent fd4b0ac8
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment