# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1169261325 0
# Node ID 72790464e9ea54c8a022be1df4b0e05f764c7d5e
# Parent  b1b2424e2f414df088b95eb5ea9b3e6e1e3101d8
(type-break-demo-hanoi, type-break-demo-life)
(type-break-demo-boring): Call read-event instead of read-char.

diff -r b1b2424e2f41 -r 72790464e9ea lisp/type-break.el
--- a/lisp/type-break.el	Sat Jan 20 02:48:35 2007 +0000
+++ b/lisp/type-break.el	Sat Jan 20 02:48:45 2007 +0000
@@ -1131,11 +1131,10 @@
       (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 @@
           (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 @@
                      message))))
             (goto-char (point-min))
             (sit-for 60))
-          (read-char)
+          (read-event)
           (kill-buffer buffer-name))
       (quit
        (and (get-buffer buffer-name)